Para Manaus, Boa Vista, Porto Velho, Rio Branco, Santarém, Altamira, Macapá, Est. de Rondônia (Via Aérea), Cr$ 2.080,00 



Os Velhos Problemas 
Com o Gravador 


Criptografia com o TK 
Casando Impedâncias com o Programa Padre 




_ 


EXEMPLAR DE ASSINANTE - VENDA PROIBIDA Ano I - N.° 12 - 1984 Cr$ 1 600,00 





















PARA T<K i?000COLOF 


A Microsoft tem 120 programas em fitas e disquetes à sua disposição, 
São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também fogos eletrônicos para você e sua famttia 
se divertirem muito. Todos especiais para TK-83. TK-85; - 


TK-2000, AppFele compatíveis. E todos com a mesma quaiidade 


dos 100.000 programas fá vendidos em todo o Brasiir 



~Frócüre o revendedor Microsoft mais prcxrmo (se não encontrar os 
programas Microsoft escreva para a Caixa Postai 54221 - CEP 01000 
“S Paulo-SP). Você encontrara os meihores programas da sua vida. 
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Israel Teixeira 



Campanhas nacionais de apoio à reserva 


A reunião anual da Sociedade Bra¬ 
sileira para o Progresso da Ciência, rea¬ 
lizada no mês de julho em São Paulo, 
surtiu inúmeros efeitos na área de infor¬ 
mática. A reunião teve vários painéis so¬ 
bre a mesma e a maioria versaram sobre 
a tão discutida reserva de mercado. Po¬ 
rém, a partir destes debates surgiram ini¬ 
ciativas mais concretas por um posicio¬ 
namento mais claro com relação à ques¬ 
tão. 

Dessa forma, várias entidades — 
encabeçada pela SBPC — inauguraram 
o Movimento Brasil-Informática, con¬ 
tando com apoio da Abicomp, APPD — 
Nacional e Federação Nacional dos En- 
engenheiros. Após reunião entre os re¬ 
presentantes destas entidades, seus par¬ 
ticipantes decidiram criar comitês regio¬ 
nais com o objetivo de alcançar todo o 
país numa mobilização completa da so¬ 
ciedade brasileira, para pressionar o 
Congresso Nacional na aprovação de 
uma lei que regulamente a política na¬ 
cional de informática. 


Em São Paulo, este movimento ini¬ 
ciou-se em maio deste ano na Universi¬ 
dade de São Paulo e a partir daí, ele se¬ 
guiu para a Secretaria da Indústria, Co¬ 
mércio e Tecnologia quando o secretá¬ 
rio Einar Kok encomendou à comissão 
de automação iigada ao Conselho Esta¬ 
dual de Política Industrial, Comercial e 
Agroindustrial, um documento que de¬ 
finisse a posição do Estado com relação 
ao assunto. Do documento resultaram 
algumas definições como o reconheci¬ 
mento de que não há uma preocupação 
no Brasil nem estratégia de ocupação dc 
mercado para uma política industrial. 
Com relação às telecomunicações, o do¬ 
cumento afirma que o país foi retalhado 
entre as empresas multinacionais, resul¬ 
tando deste fato — segundo o docu¬ 
mento — <a eliminação da competição 
(um meio de servir o consumidor). É de¬ 
monstrada, ainda, uma preocupação em 
salientar que a busca de autodetermina¬ 
ção tecnológica, através de uma posi¬ 
ção madura e de competência, é essen- 


Simpósio Itautec 


De 8 a 10 de julho realizou-se, no 
anfiteatro do Centro de Convenções Re- 
bouças, simpósio promovido pela Itaú- 
tec, com o objetivo de mostrar a um pú¬ 
blico formado por empresários, profes¬ 
sores, profissionais, jornalistas e estu¬ 
dantes, as perspectivas do uso do mi¬ 
crocomputador em vários setores, pers¬ 
pectivas de desenvolvimento e a situa¬ 
ção técnica, política e social atual. 

Pouco antes da abertura oficial do 
evento, Olavo Setúbal, presidente do 
grupo Itaú, deu entrevista coletiva à im¬ 
prensa. Na oportunidade ele voltou a 
defender a reserva parcial de mercado e 
o estabelecimento de uma política na¬ 
cional de informática. Por reserva par¬ 
cial de mercado, Setúbal entende que 
não podemos abrir totalmente o merca¬ 
do às empresas multinacionais, uma vez 
que as empresas brasileiras não têm 
condições de competir em pé de igual¬ 
dade com empresas estrangeiras de 
porte. Por outro lado, não podemos fe¬ 
char completamente o mercado, pois 



Olavo Setúbal presidente do grupo Itaú e 
Crodowaldo Pavan presidente da SBPC 


no evento Itautec. 


corremos o risco de utilizarmos o mes¬ 
mo tipo de modelo adotado nos países 
do Leste Europeu. Nesta situação, o 
Brasil teria que romper com uma série de 
compromissos de caráter internacional 
(como, por exemplo, patentes e direitos 
autorais) e montar um serviço de espio¬ 
nagem tecnológica. Ou, como ele mes¬ 
mo exemplificou — mostrando os dois 
extremos — "ou compramos tudo ou 
nos apropriamos de tudo". 


Show-room da Victor presta serviços ao usuário 



Antena de recepção de sinais de satélite. 


Expondo sua linha de produtos — 
Elppa Plus e o Elppa Junior — a Victor 
inaugurou um show-room que pretende 


prestar serviços aos usuários de seus mi¬ 
cros, oferecendo software, cursos e lite¬ 
ratura, além de também estar comercia¬ 
lizando micros da Itaútec e todo seu su¬ 
porte além dos monitores Elppa. 

Uma das atrações do show-room 
Victor é uma parábola instalada na en¬ 
trada, com o objetivo de demonstrar a 
recepção de sinais de satélite usando um 
micro Elppa na geração de caracteres. A 
empresa inicia suas atividades de apoio 
ao usuário logo no início de agosto, 
através de cursos e informações podem 
ser obtidas no próprio local, em São 
Paulo, pelo telefone (011) 872-4788. 


ciai, não se esquecendo de procurar ver 
as necessidades para importar. 

Após a iniciativa do secretário, as 
entidades se agruparam e passaram a 
atuar a nível de governo federal. Em 
Brasília, o movimento começa a esquen¬ 
tar, pois no Congresso Nacional existem 
cerca de cinco projetos tramitando e o 
Executivo, neste mês de agosto, envia¬ 
rá seu projeto de Lei propondo uma le¬ 
gislação para a política nacional de in¬ 
formática. O projeto do Executivo prevê 
a consolidação das diretrizes traçadas 
pela SEI e a reserva de mercado para a 
indústria brasileira de computadores. 

Um outro movimento, que se 
instala a nível federal, é pela aprovação 
do anteprojeto que prevê o registro 
compulsório de software dentro de 
prazos que variam de seis (para progra¬ 
mas nacionais) e um ano (para progra¬ 
mas que venham do exterior). O ante¬ 
projeto foi encomendado pela SEI à 
OAB e prevê ainda o domínio público no 
caso dos softwares não registrados den¬ 
tro destes prazos. 

Teclado profissional 
para os TKs 

É um complemento, desenvolvido 
pela Speed Eletro-Eletrônica, que forne¬ 
ce aos micros da linha TK aparência e as 
facilidades de um micro profissional. O 
teclado é composto por "switches" de 
acionamento mecânico, gabinete de fi- 
berglass e foi dimensionado para com¬ 
portar o micro, expansão e fonte de ali¬ 
mentação. 

O teclado é do tipo profissional, pa¬ 
drão máquina de escrever, que permite a 
dinamização da entrada de ciados no mi¬ 
cro, tornando a digitação mais rápida. 
Os "switches" comercializados pela em¬ 
presa podem ser usados também em te¬ 
clados de equipamentos industriais, co¬ 
mo controladores de processos indus¬ 
triais, comandos numéricos e digitais e 
ainda, segundo a empresa, em teclados 
de computadores profissionais. 



Teclado da Speed para os micros da linha 
TK. 
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Duas calculadoras profissionais 



Calculadoras-Hewlett Packard. 

HP-12C e HP —11C são dois mode¬ 
los de calculadoras que a Hewlett Pac¬ 
kard apresentou na 11? FUSE em junho 
último. As duas calculadoras atendem 
interesses de cálculos de duas catego¬ 
rias profissionais distintas: engenheiros 
e profissionais da área financeira. 

A HP-11C possue um conjunto de 
funções científicas pré-programadas 


que permite cálculo de funções hiperbó¬ 
licas, conversões entre graus e radianos, 
coordenadas retangulares e polares. Ou¬ 
tra característica da 11-C são suas te¬ 
clas inclinadas que reduzem a fadiga 
proveniente de uma utilização prolonga¬ 
da. A empresa fornece, juntamente com 
a calculadora, o manual do proprietário 
com inúmeros programas prontos como 
álgebra matricial, sistemas de equações 
lineares, resolução de triângulos e cálcu¬ 
lo de distribuição qui-quadrado. 

A HP-12C financeira programável 
permite a resolução de problemas de ju¬ 
ros e de amortização, descontos de flu¬ 
xos de caixa, cálculo de rendimentos de 
títulos e letras e depreciação (linear, ex¬ 
ponencial, juros de dias singulares). A 
calculadora tem também revisão unitária 
ou contínua de programas (linha à linha, 
para frente ou para trás), alocação auto¬ 
mática de memória, dois modos de se¬ 
paração das partes inteira e decimal 
(brasileiro e norte-americano) e sistema 
lógico (pilha automática com quatro me¬ 
mórias, recuperação de erros e manipu¬ 
lação da pilha operacional). Como a HP- 
11C, acompanha-a também, o manual 
do proprietário e o guia de aplicações. 


Um monitor de vídeo para o TK-2000 


Um monitor de vídeo profissional 
desenvolvido especialmente para o TK- 
2000 estará sendo oferecido aos seus 
usuários a partir de agosto próximo. O 
equipamento, fabricado pela Icomet-ln- 
dústria e Comércio, que atua no merca¬ 
do de informática há mais de um ano 
com terminais de vídeo inteligentes para 
minicomputadores, foi desenvolvido ini¬ 
cialmente para micros da linha Apple. 
Porém, com o surgimento do TK-2000 
no mercado, a empresa decidiu fabricar 
monitores compatíveis com ele. 

O monitor, denominado Matriz- 
MX200, possue alta resolução gráfica, 
controles de brilho vertical e horizontal e 
tela anti ofuscante, uma característica 


que, segundo seus fabricantes, é única 
no mercado. 

Segundo Carlos Eduardo Batten- 
dieri, diretor comercial da Icomet, a em¬ 
presa decidiu fabricar o monitor para o 
TK-2000 devido a grande receptividade 
deste micro no mercado, graças — con¬ 
forme afirmou — ao seu suporte técni¬ 
co. "Além disso — continuou — este 
micro oferece possibilidades de amplia¬ 
ção de aplicações profissionais em fun¬ 
ção da relação entre preço e desempe¬ 
nho". 

O monitor de vídeo passou pelos 
testes de desempenho da Microdigital e 
aprovado, será vendido a um preço que 
variará entre 45 a 50 ORTNs. 



Micros TK e interface 
para impressoras 

Os microcomputadores da linha TK 
têm agora uma interface paralela para se 
ligarem a impressoras do padrão Cen¬ 
tronics como Emília, Mônica, Grafix, 
Epson etc. Acoplando a interface ao co¬ 
nector de expansão, os usuários de mi¬ 
cros TK podem efetuar registros impres¬ 
sos de dados, programas e relatórios. 

A Microdigital, além de lançar esta 
interface, está inaugurando sua nova 
fábrica na Barra Funda em São Paulo, 
com 3 mil m 2 . A construção desta nova 
fábrica, segundo a empresa, tem o obje¬ 
tivo de acelerar o ritmo de produção, 
com o intuito de exportar tecnologia e 
serviços. 

Palestras e exposição 
no 4?Semicro 

De 27 a 31 de agosto a UFRJ fará 
realizar o seu 4? Semicro e a 3? Micro- 
exposição de microcomputadores e pe¬ 
riféricos nacionais. Promovido pelo Nú¬ 
cleo de Computação Eletrônica da UFRJ 
o evento conta com o apoio de várias 
entidades científicas como CNPq, Ca¬ 
pes, SEI, Serpro, Abicomp e outras, 
além do patrocínio especial da Organi¬ 
zação dos Estados Americanos — OEA. 

Este evento, segundo seus organi¬ 
zadores, tem o objetivo de difundir o 
microcomputador como ferramenta bá¬ 
sica na vida cotidiana e profissional. O 
Semicro se destina aos profissionais da 
área de computação, engenheiros e pro¬ 
jetistas de toda as especialidades e à co¬ 
munidade acadêmico científica da área 
de informática. Dentro de sua progra¬ 
mação está a realização, em paralelo, do 
I Simpósio de Informática na Educação, 
do I Seminário de Microinformática na 
Universidade e o II Seminário de Micro¬ 
informática na Administração Pública. 

A 3? Microexposição terá a partici¬ 
pação de vários fabricantes de hardwa¬ 
re, software e periféricos e será monta¬ 
da no hall do auditório do Centro de 
Tecnologia da UFRJ. Esclarecimentos 
maiores podem ser obtidos com a co¬ 
missão organizadora no telefone (021) 
290.3212. 

Produtos para 
conservação de 
equipamentos eletrônicos 

São fabricados por uma empresa 
do Rio de Janeiro — Aerojet — na for¬ 
ma de spray, com adequação à manu¬ 
tenção e limpeza de equipamento técni¬ 
cos e industriais. Um dos produtos que 
merece destaque é o LC-150/Limpador 
de Contatos Eletrônicos com "freon" 
TF, indicado para limpeza dos sistemas 
que exigem continuidade elétrica como 
cabeças de gravação, discos de memó¬ 
ria, circuitos integrados, contactores e 
transceptores. O LC-150 serve também 
para limpeza de fitas magnéticas casse¬ 
te ou profissionais. 


4 MICROHOBBV 








































uratron 


Ringo 





PHILIPS 


CMA 



ziSBk 



£1410 \ 

r 


SOFTWARE 




HARDWARE 




SUPRIMENTOS 

——i i_A 



INSTRUMENTAÇÃO 





ELETRÓNICOS 



/MICROCMFT 


Venha conhecer nosso show room e 
participar ativamente das mais recentes 
e revolucionárias tecnologias a respeito 
dos microcomputadores. Além de 
fazer amigos, eventualmente poderão 
descobrir o que um Microcomputador 
poderá fazer por vocês ou pela sua 
Empresa. 

Trata-se de uma perfeita e balanceada 
estrutura para representar à altura, as 
principais Empresas de Computadores 


tais como: Texas, Zirok, Microdigital, 
Dactari, Polymax, Unitron, Elebra, 
Aceco, Prológica, Apple II, Savage, 
Microcraft, CMA, Phillips, Ringo, 
Matrix... 


Texas 



Intellivision 




RUA SANTA EFIGÊNIA, 568 - SP - FONE: 221-9055 
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EDITORIAL 


Em meados do século XV, Portugal e Espanha entraram 
em uma disputa sobre a quem pertenceriam as terras 
descobertas no Novo Mundo. A disputa entre ambos foi 
resolvida por meio de um tratado, o famoso Tratado de 
Tordesilhas. Este tratado dividia o mundo em duas partes por 
meio de um meridiano e as terras a serem descobertas à sua 
esquerda seriam da Espanha e as que estivessem à sua direita, 
de Portugal. Tudo bem! 

Tudo bem? Alguns países, especialmente a França, 
discordaram desta atitude e questionaram: "que direito têm 
dois países de dividir o Mundo como se fosse uma laranja?" 

Que tem isso com a Informática?Muito. Atualmente 
divide-se entre os países desenvolvidos algo mais sutil e tão 
importante quanto as terras a serem descobertas: a tecnologia 
em Informática. Países como os Estados Unidos, Inglaterra, 
Japão, acham-se no direito de possuir este bem e acreditam 
que os países em desenvolvimento devem, no máximo, 
consumir pacotes prontos, onde pouco ou nada do 
conhecimento científico-tecnológico é realmente transferido. 

E tudo isso sem justificativa, ou com justificativas vagas ou 
até mentirosas, do tipo "nós temos a tecnologia porque 
soubemos desenvolvê-la. Vocês também não podem fazer isso 
porque são incapazes" ou "com a presença de nossas 
empresas em seus países vocês desfrutarão do benefício da 
nossa tecnologia". 

Nós brasileiros, como outros membros de países em 
desenvolvimento, nos sentimos no dever de questionar: "que 
direito têm os países desenvolvidos de nos impor seus 
produtos e nos impedir de nos desenvolver?" 

A melhor atitude que temos para provar que estamos 
certos é conquistar, com muita luta, um lugar neste Novo 
Mundo que não nos permitem habitar ou explorar, 
desenvolvendo uma tecnologia tão boa quanto a desenvolvida 
pelos "donos do Mundo" e sobretudo voltada para as nossas 
necessidades, visando a resolver nossos problemas e sem 
lançar mão de recursos fáceis que tapam o buraco agora, 
mas abrem-no novamente no futuro. 
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CARTAS DOS 
LEITORES 



Apple, os Oitenta e outros 


Sendo assinante da Microhobby 
desde o número 1, gostaria de acres¬ 
centar algumas coisas à argumentação 
da redação em relação aos leitores que 
têm reclamado das seções que falam 
de outros computadores: 

a) alguns leitores, como é meu caso, 
foram introduzidos à computação pela 
compra de um TK e depois, embora 
mantendo o TK, adquiriram computa¬ 
dores Apple ou 80 compatíveis ou um 
TK 2000 para aplicações mais profissio¬ 
nais, permanecendo, portanto, interes¬ 
sado em ambas as linhas. 

b) sendo a Microhobby uma revista 
basicamente didática, um pouco mais 
de cultura e informação na área não fa¬ 
rão mal a ninguém, pois, embora sen¬ 
do uma maquininha genial, os TK e 
seus compatíveis não constituem o 
universo da computação . . . 

c) a apresentação de programas nos 
vários dialetos BASIC poderá, pelo co- 
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nhecimentc das instruções diferentes e 
suas equivalentes em cada tipo de má¬ 
quina, facilitar a conversão de progra¬ 
mas entre os vários computadores, o 
que dá uma margem de operação mui¬ 
to mais ampla. Afinal, encontramos 
programas em BASIC-TRS ou BASIC- 
Applesoft, que gostaríamos de conver¬ 
ter para c TK, não é verdade? 

d) vamos unir mais a família dos 
amantes da informática, sem criar ra¬ 
dicalismo e sectarismos. Afinal, todos 
gostamos de computadores e algumas 
páginas sobre outras lógicas não de¬ 
vem ser motivo para polêmicas e de¬ 
sunião. Ao invés delas, porque não da¬ 
mos as mãos? 

Orlando Holanda Lima 
Sâo Paulo — SP 

Caro Orlando, 

Agradecemos o seu posiciona¬ 
mento favorável à presença de outras 
máquinas nas páginas de nossa revista. 


Sugestão 


Gostaria que vocês editassem, 
juntamente com a listagem decimal, a 
listagem com Mneumônicos com as li¬ 
nhas de comentários sobre c que uma 
determinada instrução faz nc progra¬ 
ma. Também gostaria que fosse publi¬ 
cado um estudo detalhado das rotinas 
da ROM do TK e do modo de grava¬ 
ção dc cassete (sua forma de onda, 
freqüência, nível de entrada e saída, 
etc.). 

Cláudio Henrique de Castro 
São José dos Campos — SP 


Caro Cláudio, 

Suas sugestões são válidas e já fo¬ 
ram parcialmente implantadas na revis¬ 
ta. Alguns programas em Linguagem 
de Máquina estão sendo publicados na 
forma que você sugere, principalmente 











no nosso curso de Assemb/y Z80. As 
rotinas da ROM sâo muitas e seria ne¬ 
cessário publicar-se um livro a res¬ 
peito. Mas, por outro lado, existe a se¬ 
ção dissecando, onde eventualmente 
publicamos alguma coisa sobre o as¬ 
sunto. 


Mais sugestões 

Escrevo esta carta para transmi¬ 
tir-lhes minha admiração pelo conteú¬ 
do desta revista, c que eu, sincera¬ 
mente, nãc esperava encontrar quan¬ 
do fiz meu pedido de assinatura ac ver 
c número zero. 

Tende feito minha assinatura ape¬ 
nas para colaborar com uma nova pu¬ 
blicação na área de informática, logo 
constatei que a minha escolha tinha si¬ 
do mais do que certa. Espero assim 
que vocês continuem nesta linha que 
eu impute de grande relevância para c 
desenvolvimento dos principiantes e 
mesmo dos já iniciados, numa área que 
nãc tinha grandes opções, antes do 
aparecimento da Microhobby. 

Espere que vocês apresentem 
mais programas e dicas sobre aplica¬ 
tivos, sem se desviarem des micros 


compatíveis com c TK. Sobre as ses¬ 
sões sobre c Apple e TRS-80 pediria 
que ficassem como complemento e 
fossem apresentados começando pelo 
mais simples. 

Francisco J. Pazino Beceiro 
Sâo Paulo — SP 

Caro Francisco, 

Se você tem observado nossa re¬ 
vista, deve ter notado que tem apare¬ 
cido bons aplicativos fveja o Dinheiro 
no Tempo, por exemplo) e que as ses¬ 
sões para o Apple e o TRS-80 não têm 
prejudicado o espaço destinado ao TK 
83 e seus compatíveis. Desta forma, 
acreditamos que ainda somos merece¬ 
dores da sua confiança quanto a ma¬ 
nutenção da Unha. É verdade que esta¬ 
mos dedicando algumas páginas a ou¬ 
tras máquinas, mas isto vem sendo fei¬ 
to de maneira muito discreta e paulati¬ 
namente de tal modo que nosso leitor 
tradicional não sofra com a mudança. 


Conteúdo 


Goste demais desta revista que os 
senhores publicam. Tanto que estou 
respondendo à pesquisa que vem sen¬ 
do publicada em suas páginas desde o 


número 6. E claro que não posso pen¬ 
sar só em minhas necessidades e nas 
de meus filhos. Acho que, para uma 
clientela variada, a revista precisa ser 
também variada como é. Há matérias 
que a gente não lê, mas que, me pare¬ 
ce, outros aproveitam muito. 0 que 
mais aproveitamos aqui em casa (eu, 
meus três filhos e minha esposa) são: 
as aulas de BASIC e Assembly, os pro¬ 
gramas, as informações sobre informá¬ 
tica, etc. Desejo um dia (tempo . . .), 
organizar um programa de estatística 
para pesquisas no campo educacional 
esocial. (. . .) 

Danilo Gandin 
Porto Alegre — RS 

Caro Danilo, 

Agradecemos os elogios e comen¬ 
tários favoráveis à nossa Unha editorial. 
Procuraremos, à medida do possível, 
tornar esta revista ainda melhor. As¬ 
sim como você, uma boa parte dos 
nossos assinantes respondeu a pesqui¬ 
sa que publicamos em alguns de nos¬ 
sos números. Desta forma, teremos 
uma idéia dara do que pensam nossos 
leitores e, de posse destes dados, pen¬ 
sar em como melhorar a revista de mo¬ 
do a atender à maioria dos leitores. 


PROGRAMAS PARA TK82 - TK83 - TK85 - 


CP200 - RING0 E SIMILARES 

Ouro de Hitler 

0s nazistas abandonaram USS 5 
milhões em ouro em sua base insu¬ 
lar. Voce procura retirar esse ouro 
enquanto eles minam o braço de 
mar que separa a ilha do conti¬ 
nente. Rotinas em linguagem de 
máquina. 

Força Invasora 

Seu planeta é atacado por uma es¬ 
quadra de naves inimigas protegi¬ 
das por campos de força. Você 
deve destruí-las uma a uma para 
evitar a invasão. Totalmente em lin¬ 
guagem de máquina. 

Bomber 

Você é o piloto de um bombardeiro 
num ataque contra uma metrópole 
inimiga e foi atingido. Será que voce 
conseguirá aterrissar sem chocar-se 
contra os edifícios? Totalmente em 
linguagem de máquina. 

UF0 

Você é atacado por um ser extrater¬ 
restre em um disco-voador. Para 
eliminá-lo você deve destruir o 
campo de força que o protege e 
defender-se de sua arma de raios 
fotonicos. Totalmente em lingua¬ 
gem de máquina. 

Robot War 

Você foi escolhido para programar o 
robô que defenderá sua galaxia 
numa luta contra K0RK0 - 0 IN¬ 
VICTO e deve, para derrotá-lo des¬ 
cobrir seu código secreto. Rotinas 
em linguagem de máquina. 

Labirinto II 

Você pode escolher as dimensões 
de um labirinto tridimensional 
dentro do qual você se move em 
busca da saída. Imagens soberbas 
Totalmente em linguagem de má¬ 
quina. 

Galaxians 

Um grupo de galaxianos hostis foi 
localizado em formação de ataque 
perto da Terra. Sua missão é evitar 
um ataque destruindo-os antes que 
atinjam a Terra. Totalmente em lin¬ 
guagem de máquina. 

Mothership 

A nave mãe inimiga conseguiu pro¬ 
vocar uma falha no campo de força 
em torno de seu planeta, lançando 
por ela uma esquadrilha de naves 
de combate. Você deve defender 
aquele ponto até que o campo seja 
restabelecido. Totalmente em lin¬ 
guagem de máquina. 

Meteors II 

Você deve manter intacta sua nave 
mercante num anel de meteoritos 
estratificado em torno do planeta 
onde voce realiza importantes ne¬ 
gócios. Rotinas em linguagem de 
máquina. 

Ataque Aéreo 

Como piloto de um caça você deve 
treinar seus reflexos praticando tiro 
contra alvos que se movem de 
forma aleatória no espaço. Rotinas 
em linguagem de máquina. 

Asteróids 

Sua nave está se movendo em 
meio a uma nuvem de asteróides 
que você deve destruir para sobre¬ 
viver. 8 direções de tiro. Movimento 
aleatório dos asteróides. Total¬ 
mente em linguagem de máquina. 

TK-Word 

Excelente processador de textos 
que transforma seu micro numa 
"Composer" de baixo custo. Algu¬ 
mas de suas características: repeti¬ 
ção automática para todas as te¬ 
clas; centralização de linha; mais de 
320 linhas de arquivo; Cursor para 
as quatro direções. Totalmente em 
linguagem de máquina. 


Cada programa é gravado duas vezes no K-7, é lacrado e garantido contra defeito de 
fabricação. 
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DESGRILANDO 


Existem algumas dúvidas que têm aparecido 
freqüentemente em nossa redação 
e merecem um esclarecimento 
por parte da Microhobby. 

Fizemos uma 

e as generalizamos, para atender 
a todos os leitores 
com dúvidas 


Meu programa não funciona. Digitei 
tudo certo, mas mesmo assim ele con¬ 
tinua dando erro. Há erro na revista? 

Na maioria dos casos, não há erro 
na revista, uma vez que sempre faze¬ 
mos uma revisão rigorosa dos progra¬ 
mas e c que aparece na revista é uma 
cópia exata de uma listagem de um 
programa que está rodando perfeita¬ 
mente em um de nossos computa¬ 
dores. 

0 que pode estar ocorrendo é: 

1) Erro na digitação. Isso é o que 
leva mais pessoas a nos consultar. As¬ 
sim sendo, tome cuidado com a digita¬ 
ção de comandos, instruções e fun¬ 
ções. No TK e seus compatíveis, não 
podemos digitá-los letra por letra. Os 
comandos e instruções podem ser ob¬ 
tidos quando o cursor está em K ou L 
-»- SHIFT (comandos com STOP, 
LPRINT, ETC.). As funções são obti¬ 
das digitando-se SHIFT + NEW UNE 
(ao mesmo tempo). Deste modo, obte¬ 
remos o cursor F, que indica que o 
computador está no modo FUNCTION 
e podemos digitar a função que quiser¬ 
mos (SIN, TAN, NOT, ETC.). 
Importante: PI também é uma função 
(representada no teclado por 7r). Uma 
boa norma é só digitar letra por letra c 
que não aparecer no teclado. 

2) Erro na interpretação ou ope¬ 
ração do programa. Isso ocorre quan¬ 
do o texto não é lido em sua integri¬ 
dade ou aparecem dúvidas em sua lei¬ 
tura. É aconselhável digitar-se c pro¬ 
grama apenas após a leitura detalhada 
do texto e sem que haja dúvidas. 0 
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principal problema que ocorre aos nos¬ 
sos leitores é perder um programa ou 
dados, digitando-se RUN quando de¬ 
via-se digitar GOTO um determinado 
número de linha ou RAND USR um 
determinado endereço. 

3) Listagens com ambiguida¬ 
des: Podem aparecer pontos onde vo¬ 
cê pode se confundir com alguma le¬ 
tra. Isso ocorre algumas vezes em pro¬ 
gramas em Linguagem de Máquina on¬ 
de c B pode ser confundido com o 8 
(oito). Se você acha que digitou o pro¬ 
grama certo, conferiu a listagem e ain¬ 
da assim tem problemas, é convenien¬ 
te procurar por ambigüidades (confu¬ 
são de letras, números e símbolos grá¬ 
ficos). 

4) Erro na revista: Se você digi¬ 
tou c programa corretamente, procu¬ 
rou todas as possíveis ambigúidades, 
conferiu e reconferiu e mesmo assim o 
programa não funciona, comece a sus¬ 
peitar da revista. Embora tenhamos to¬ 
do c cuidado com a digitação, teste, 
preparação e conferência do progra¬ 
ma, errar é humano. Embora isso seja 
raro, não é impossível. De qualquer 
forma, todas as vezes que apareceu 
um erro na revista, ele foi prontamen¬ 
te descoberto, a tempo de preparar¬ 
mos uma errata. Se, por acaso, encon¬ 
trar um erro que ainda não foi corrigi¬ 
do, escreva-nos, que procuraremos, 
por meio da seção Cartas dos Leitores, 
sanar o problema. 


O que acontece se eu modificar uma 
das Unhas do programa? 


Experimente! Se você passou um 
dos programas da nossa revista ou de 
outra ou ainda de um livro, grave-o pa¬ 
ra evitar perdas, e faça um teste. Não 
tenha medo pois isso não prejudica c 
computador. O máximo que pode 
acontecer é você perder o programa ou 
c computador entrar em "crash", ou 
seja, não aceitar mais nenhum coman¬ 
do, mesmo BREAK. Isso não é catas¬ 
trófico, pois ele sempre voltará ao nor¬ 
mal quando o desligarmos e o ligarmos 
novamente. 

Qualquer programa publicado ain¬ 
da permite alterações e adaptações. 
Por isso não se acanhe em fazê-las. É 
importante, contudo, fazer estas modi¬ 
ficações com um objetivo em mente 
(melhorar o algoritmo, melhorar a 
apresentação da tela, acrescentar mais 
algumas rotinas ou simplesmente 'Ver 
o que acontece"). Uma vez feita a mo¬ 
dificação, anote-a para uso futuro, tes¬ 
te-a e anote o resultado, mesmo que 
seja negativo (assim você saberá o que 
não deve fazer!). 


A fita com tal programa não entra. 
Que devo fazer? 

A maioria dos problemas com a 
entrada de programas em fita no com¬ 
putador se dá por problemas de ajuste 
de volume e tonalidade do gravador, 
sujeira na cabeça, mal manuseio da fi¬ 
ta, desajuste da cabeça do gravador e, 
por último, um defeito na fita. Por 
este motivo, temos publicado regular¬ 
mente artigos visando sanar estes pro¬ 
blemas. O 


















DISSECANDO: 

FORNEXT 

Carlos Eduardo Rocha Salvato 


INICIANTES 


A forma pela qual se utiliza a ins¬ 
trução FOR/NEXT normalmente é: 
FOR variável contadora = valor inicial 
TO valor final (STEP incremento). 
NEXT variável contadora 

0 principal objetivo das instruções 
FOR/NEXT é executar a repetição de 
instruções em um programa. 

Após digitar a instrução ou grupo 
de instruções que você quer que o pro¬ 
grama repita devem ser colocadas en¬ 
tre o FOB e o NEXT. 

Vamos analisar o seguinte progra- 


n?da linha 

comentários 

10 

Atribui o valor 1 para a variá¬ 
vel B 

20 

Inicia a contagem de 1 £té 10 

30 

Imprime o valor de B 

40 

Soma 1 no valor de B 

50 

Soma 1 ao valor de a e veri¬ 
fica se acabou a contagem 

60 

Para o programa 


O que nos interessa realmente, 
são as linhas 20 e 50. Na linha 20 é atri¬ 
buído à variável-contadora A o valor 
inicial no caso, 1. As instruções das li¬ 
nhas 30 e 40 são executadas e quando 
o programa chega na linha 50 NEXT, 
que faz duas coisas: 


ma: 

/ 




xo 

LET B=1 


20 

FOR fl=l TO 


30 

PRINT E> 


40 

LET B-B+l 


50 

NEXT R 


60 

ST O P 


v_ J 


1. é somado 1 à variável conta¬ 
dora; 

2. é verificado se o valor da variá¬ 
vel-contadora é maior que o valor final 
no caso, 10. Se for maior, ele passa 
para próxima linha do programa, caso 
contrário, o programa volta à linha on¬ 
de existe a instrução FOR. 


Tente digitar o seguinte programa: 

10 FOR R = 1 TO 10 
20 NEXT R 
36v PRXNT ft 

___ J 

Após a análise do primeiro pro¬ 
grama esta tarefa se torna muito fácil: 
quando a variável A tinha o valor 10, o 
micro, quando executou a linha 20, so¬ 
mou 1 à variável. Como ela era maior 
do que o valor final, estabelecido pela 
instrução FOR, o programa passou pa¬ 
ra a próxima linha, que ordenava que A 
t fosse impressa. 


STEP — um complemento para 
a instrução FOR - NEXT 


O STEP é usado como incremen¬ 
to. 

Veja o exemplo a seguir: 

í \ 

10 FOR R-2 TO 20 STEP 2 
2© PR1NT R 
30 NEXT R 

V _ J 
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Digite RUN e veja o resultado. O 
TK imprimiu valores de 2 até 20, se- 
qüencialmente, de dois em dois. Expe¬ 
rimente agora alterar a linha 10 para: 

^ 10POR ft=£TO 20 STEPC5 

0 micro imprimirá os números en¬ 
tre 2 até 20, mas imprimindo agora, um 
número sim, dois não. 



Usando o FOR — NEXT como 
tempo de espera 

Muitas vezes queremos imprimir 
uma certa mensagem no vídeo e deixá- 
la durante algum tempo. Existe uma 
função especialmente feita para isto: a 
função PAUSE. 

Rode o programa: 

( 1© PRINT PTT 10,6; ‘'MICROHOBBY" 

í>0 PHUSE 240 
I 30 CLS 

Você percebeu o efeito que o 
PAUSE causou: o vídeo piscou duas 
vezes. Isto pode ser evitado usando o 
FOR — NEXT como tempo de espera. 

Se tirarmos a linha 20 e digitarmos 
as duas linhas que seguem, você per¬ 
ceberá como o efeito do FOR — NEXT 
é bem melhor. 


20 FOR R = 1 TO 240 
25 NEXT « 


Se o vídeo ficou cinza durante al¬ 
guns segundos, provavelmente isto se 
deve ao fato de seu computador estar 
no modo FAST. 

Se o seu TK estiver no modo 
FAST passe-o para o modo SLOW e 
rode o programa novamente. 

0 efeito foi bem melhor, afinal de 
contas o vídeo não piscou nenhuma 
vez. 

Lembre-se: sempre que, quando 
você for usar o FOR — NEXT como 
tempo de espera, deixe seu microcom¬ 
putador no modo SLOW. 


MINÚCIAS 


Simulando o FOR — NEXT 

Existe uma restrição no TK, que li¬ 
mita o número de variáveis-contado¬ 
ras em 26. Isto se deve ao fato do TK 
só aceitar uma letra como variável- 
contadora. 

Se algum dia você for traduzir um 
programa de um outro computador 
qualquer, que entenda a linguagem 
BASIC, e encontrar alguma parte do 
programa que tenha o seguinte: 
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10 FOR AC=6 TO 89 ST£R 5 
20 PRJNT AC 
30 NEXT 

Para traduzir isto, você terá duas 
opções: 

A primeira delas seria a seguinte: 


10 FOR «.6 TO 09 STEP S 
20 PRINT R 
30 NEXT « 


A 

J 


Mas tome cuidado para ver se a 
variável que você substituiu já não exis¬ 
te no programa. 

A segunda já é um pouco mais 
complicada, mas também funciona. 
Digite a listagem a seguir: 


IO LET RC«6 

20 PRINT RC 

30 l.ET PC ssRC-f S 

4.0 IF RC> 69 THCN GOTO 60 

50 GOTO 20 

6© STOP 


J 


Na tabela a seguir, nós explicare¬ 
mos o programa anterior. 


A instrução FOR/NEXT usada para 
fazer gráficos 


A instrução FOR/NEXT é muito 
prática para ser usada na construção 
de gráficos, porque a variável contado¬ 
ra pode funcionar como os pontos do 
eixo X e, além disso, também pode ser 
usada na própria função cujo gráfico 
será construído. Veja o exemplo se¬ 
guinte: 


10 

FOR R*0 TO 63 


20 

LET Xen 


30 

L ET V*22+£0*S1M 

(Xf*32*PI) 

40 

PLOT X,Y 


50 

NEXT n 


60 

ST OP 

J 


Se fosse feita uma tabela dos pon¬ 
tos do gráfico, ela seria a seguinte: 




X 

Y \ 

0 

22 

1 

23.960343 

2 

25.901306 

3 

27.605694 

4 

29.653669 

5 

31.427935 

6 

33.111405 

7 

34.687866 

8 

36.142136 

9 

37.460209 

E 

E 

T 

T 

C 

C 

. 

. 

• 

• 

• 

• 


v_!_ 


Tome cuidado para não ultrapas¬ 
sar os limites do vídeo senão será acu¬ 
sado o erro B. 


Como representar o FOR/NEXT 
no fluxograma 

A instrução FOR no fluxograma, 
sempre é ligada a instrução NEXT. A 
representação dessas duas funções no 
fluxograma é feita a seguir: 



Observação: A letra N no centro do 
círculo é a abreviação da palavra NEXT 
e pode ser omitida. 

Tente fazer o fluxograma do últi¬ 
mo programa apresentado. 

Logo após você acabar, confira 
com o fluxograma a seguir: 



LINGUAGEM DE MÁQUINA 


Como já foi explicado em núme- 
ros anteriores, para inserirmos um pro¬ 
grama em linguagem de máquina no 
TK, nós precisamos da ajuda de um 
pequeno programa chamado MONI¬ 
TOR, cuja listagem está a seguir: 


10 REM N ZEROS 

20 PRINT “ENDEREÇO INICIRL ?** 
30 INPUT R 
4.0 PRINT R 

50 PRINT “ENDEREÇO FINPL 
60 INPUT E 
70 PRINT B 
60 FOR C=R TO B 
90 SCROLL 
10O PRINT C, 

110 INPUT RS 
120 PRINT RS 

130 LET D = lõiCODE RS+CODE RSC2i 
-4.76 

14-0 POKE C,D 
150 NEXT C 
160 STOP 


Na linha 1 REM devem existir N 
pontos, onde N é um número que será 
determinado sempre antes do progra¬ 
ma em linguagem de máquina. Os en¬ 
dereços inicial e final também serão 











































fornecidos antes do programa. (Lem¬ 
bre-se: só digite os números que es¬ 
tão embaixo da palavra CÓDIGO.) 

Aplicação prática do FOR/NEXT 
compilado 

0 termo compilar quer dizer o se¬ 
guinte: traduzir um programa-fonte pa¬ 
ra uma linguagem de máquina de um 
determinado computador. 

No nosso caso o FOR/NEXT seria 
o programa-fonte e o TK seria o com¬ 
putador. 

Existem várias maneiras de se 
compilar as instruções FOR/NEXT. 
Nós veremos duas maneiras que 
podem ser usadas quase sempre. 

A primeira delas é a seguinte: 

LD B, número de vezes que as instruções 
serão executadas 

LI P 

R 

O 

G 

R 

A 

M 

A 


DJNZ, LI 
RET 

0 esquema anterior mostra como 
usar o registro B para compilar o FOR/ 
NEXT. 

Você pode usar o FOR/NEXT en¬ 
volvendo todo o programa ou apenas 
uma parte dele. 

A primeira instrução antes das ins¬ 
truções que vão ser repetidas deve ser 
aquela que carrega o número de vezes 
que as instruções posteriores serão re¬ 
petidas, no registro B. Logo após esta 
instrução devem vir as que vão ser re¬ 
petidas e, no final, deve vir a instrução 
DJNZ, LI, onde LI é a posição onde 
começa o seu programa ou a sub-roti- 
na que será repetida várias vezes. 

A instrução DJNZ, LI equivale ao 
NEXT e também faz duas coisas: 

1. decrementa o contador B. 

2. se B não for 0 ele volta para LI, 
caso contrário, continua o programa. 

Lembre-se: LI é o labei onde co¬ 
meçam as instruções que vão ser repe¬ 
tidas. 

Caso o seu programa já utilize o 
registro B, você poderá utilizar outros 
registros. Para compilar um FOR/ 
NEXT usando outro registro, nós tere¬ 
mos apenas que substituir a instrução 
DJNZ, LI por duas outras instruções. 

Fazendo um pequeno esquema fi¬ 
caria assim: 


LD registro, número de vezes que 
instruções serão executadas 

LI P 

R 

O 

G 

R 

A 

M 

A 

DEC registro 
JR NZ. LI 
RET 


Nós precisamos fazer esta altera¬ 
ção, porque a instrução DJNZ só de¬ 
crementa o registro B. 

Observação: Se você for com¬ 
pilar um FOR/NEXT, cujo valor de ve¬ 
zes que as instruções serão repetidas 
for maior que 255, você deverá utilizar 
um par de registros no lugar de apenas 
um. 


Compilando o FOR/NEXT 


A seguir serão apresentados dois 
programas: um em BASIC e outro em 
ASSEMBLV (linguagem de máquina). 
Sendo que, o programa em Assembly 
teve a sua origem no programa em BA¬ 
SIC. Os dois programas irão inverter o 
vídeo cinco vezes. Repare a diferença 
da velocidade dos programas: 


a) versão BASIC 


10 FOR R = 1 TO 5 
20 FOR 1=0 TO 21 
30 FOR J=0 TO 31 
4-0 PRINT RT 1,0; 

50 LET LsREEK (PEEK 16398+256* 
PEEK 16399) 

60 IF L<128 THEN GOTO 130 
70 IF L>=123 THEN GOTO 150 
60 PRINT RT I,O;CHR* L 
90 NEXT O 
100 NEXT I 
110 NEXT R 
120 STOP 
130 LET L=L+128 
140 GOTO 80 
150 LET L =L-126 
160 GOTO 80 


b) versão ASSEMBLY 


N = 22 

Endereço Inicial = 16514 
Endereço Final = 16535 


Endereço 

Mnemónicos 

Códigos 

16514 

LD A.5 

3E05 

16516 

LD DE,(400C) 

ED 5B 0C 40 

16520 

INC DE 

13 

16521 

LD BC, 0021 

01 2100 

16524 

LD H,D 

62 

»16255 

LD L,E 

6B 

16526 

ADDHLBC 

09 

16527 

LD BC, 02B5 

01 B5 02 

16530 

LDIR 

ED B0 

16532 

DEC A 

3D 

16533 

JR NZ, -18 

20 ED 

16535 

RET 

C9 


Observação: Para aumentar o nú¬ 
mero de inversões de vídeo, digite o 
seguinte: 


POKE 16515, número de vezes 
desejada 

0 programa a seguir só tem a ver¬ 
são Assembly, pois ele é a versão com¬ 
pilada da instrução SCROLL. 


N = 24 

Endereço Incial: 16514 
Endereço Final = 16538 


Endereço 

Mnemónico 

Códigos 

16514 

LD D, 05 

1605 

16516 

LD HL (400C) 

2A0C40 

16519 

LD B, 17 

0617 

16521 

INC HL 

23 

16522 

LD A,(HL) 

7E 

16524 

CP 76 

FE 76 

16526 

JR NZ, +6 

20 06 

16528 

DJNZ. -7 

10 F8 

16530 

DEC D 

15 

16531 

JR NZ, -15 

20 f0 

16533 

RET 

C9 

16534 

ADDA.80 

C6 80 

16536 

LD (HL),A 

77 

16537 

JR, -16 

18 EF 


Esta sub-rotina é muito útil, ape¬ 
sar dela fazer quase a mesma coisa 
que o SCROLL. As principais diferen¬ 
ças são: 

1) esta sub-rotina executa cinco 
SCROLLs seguidos; 

2) quando é feita uma limpeza de 
vídeo (CLS), ela é imediata e não de¬ 
mora como a instrução SCROLL do 
TK. 

Observação: Para alterar o nú¬ 
mero de SCROLLs realizados, digite:' 


POKE 16515, número de SCROLLs 
desejados 


Para testar a diferença da veloci¬ 
dade do SCROLL e da sub-rotina que 
simula o SCROLL, digite o seguinte 
programa: 

( \ 

1 REH >1 G05U6 ?£RND < B 5 U 

■ GOSUE UOSUB T RN 

10 PRINT RT 20,0," MICROMEG 

R MICROHODBV" 

20 RRND U5R 16514 
30 GOTO 10 

V_ J 


A linha 1 REM contém a sub-roti¬ 
na que simula o SCROLL. 

Agora apague a linha 1 e digite 
as seguintes linhas: 


10 PRINT PT 20,3, 


MICROMEC- 


R 

MICROHOBBY- 

20 

FOR R = 1 TO 5 

25 

SCROLL 

27 

NEXT R 

^ 30 

GOTO 10 


O 

MICROHOBBY 13 


















































HOBBY 





OS VELHOS PROBLEMAS 
COM O GRAVADOR 

Tanios Hamzo 


OS DEZ MANDAMENTOS: 

I — Não exporás tua fita gravada a nenhum 
campo magnético. 

II — Não permitirás que se magnetize o cabeçote 
de teu gravador. 

III — Não tocarás em tua fita nem no cabeçote de teu 
gravador em vão. 

IV — Não apagarás em teu computador aquele programa 

sem que estejas certo de ter gravado-o para 
toda a eternidade. 

V — Não permitirás programa sem cópia e a fará em duas 
fitas diferentes, pois assim terá o seu original uma cópia; 

e a tua cópia um original. 

VI — Honra a teu gravador e a tua fita; e também 
o programa nela gravado; e também teu computador; 
e cuida destes como a ti mesmo, porque são tua ferramenta 

e teu trabalho. 

VII — Não gravarás em fita nenhuma que não seja virgem. 
VIII — Manterás imaculado o cabeçote de teu gravador. 

IX — Não usarás fita incompatível com teu gravador; 
nem gravador incompatível com tua fita. 

X — Praticarás sempre o uso do BEM de consumo 
apropriado e combaterás o MAU produto, para que não 
te decepciones; nem a teu próximo. 
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É quase impossível que você nun¬ 
ca teve problemas em carregar progra¬ 
mas gravados em fita cassete no seu 
computador. Há histórias do arco e da 
velha, contando como importantes ar¬ 
quivos e grandes programas foram per¬ 
manentemente perdidos, para a felici¬ 
dade de seus usuários. O problema, 
porém não está no equipamento e sim 
na forma correta de usá-lo e ajustá-lo. 

Descrevemos aqui alguns manda¬ 
mentos que englobam qualquer caso, 
desde que estejam o gravador, o com¬ 
putador e a fita em bom estado de fun¬ 
cionamento. Primeiramente darei uma 
idéia de como funciona a gravação 
magnética. 


O princípio de funcionamento 


A figura 1 mostra o princípio de 


como funciona o cabeçote do grava¬ 
dor, criando um campo magnético 
concentrado numa fenda estreita. A 
intensidade deste campo é proporcio¬ 
nal à corrente que circula no enrola¬ 
mento (o fio enrolado, também cha¬ 
mado bobina), que por sua vez é pro¬ 
porcional ao sinal sonoro que está se 
gravando. Acompanhe pela figura 2 o 
caminho que o sinal sonoro de uma 
voz percorre até ser transformado em 
campo magnético por meio de trans¬ 
dutores (tradutores de sinais elétricos 
em outros e vice versa). 

A fita magnética é composta por 
minúsculas partículas de um material 
magnético que podem ser arranjadas 
em diferentes posições na presença de 
um campo magnético, como o do ca¬ 
beçote. A figura 3 ilustra esta opera¬ 
ção. Pode-se comparar a "escrita" do 
cabeçote na fita como sendo um escri¬ 
ba fenício escrevendo num rolo de pa¬ 
pel, que vai passando por ele à medida 
em que escreve. 


A fita magnética é "escrita" mag¬ 
neticamente pelos cabeçotes com "es¬ 
crita fina", ocupando regiões bem de¬ 
finidas e nítidas, ficando desta forma 
até que haja a presença de um outro 
campo magnético e altere as informa¬ 
ções aí contidas. Quando a fita for re¬ 
produzida, o cabeçote agora não irá 
mais sensibilizar a fita, e sim a fita irá 
lhe transmitir as informações nela con¬ 
tida , reproduzindo o sinal que foi an¬ 
teriormente gravado. Esta "leitura" se 
processa quando as partículas iman¬ 
tadas da fita recriam no cabeçote uma 
corrente similar àquela usada para sen¬ 
sibilizar a fita. Perceba a importância 
da precisão com que a fita deverá es¬ 
tar alinhada ao cabeçote e a velocidade 
com que ela desliza sobre ele. No caso 
de programas gravados, tudo se pas¬ 
sa para o gravador e a fita como se fos¬ 
se o sinal do computador uma onda 
sonora comum. 

A figura 4 mostra o que acontece 
na reprodução da fita. 



Figura 2 


ondas sonoras 
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Cuidados específicos 


Figura 3 


fita virgem partículas alinhadas 
umformemante 


fita gravada: partículas agrupadas 
conforme o campo magnético 




Leia os dez mandamentos (veja o 
Quadro) para você não perder um pro¬ 
grama. Estes "mandamentos" valem 
também para fitas contendo música ou 
qualquer outra informação. Estes cui¬ 
dados apenas parecem exagerados. O 
conteúdo de uma fita é seriamente de¬ 
teriorado se esta for exposta a um 
campo magnético, pois por natureza, é 
construída para ser sensível à sua pre¬ 
sença. Embora estejamos sendo cons¬ 
tantemente bombardeados por cam¬ 
pos magnéticos, a aproximação de 
uma fita gravada a qualquer motor elé¬ 
trico (ônibus elétrico, ventilador, etc.), 
transformadores (fonte de alimenta¬ 
ção, TV, estabilizador de tensão, etc.), 
alto-falantes (do próprio gravador, cai¬ 
xas acústicas, o da TV, etc.), ou de al¬ 
gum outro imã permanente (chave de 
fenda, etc.) pode acarretar algum da¬ 
no. A própria fita é magnética, com¬ 
posta de inúmeros pequenos imãs. Pa¬ 
ra quem já esqueceu das experiências 
do 1? grau, deslizando-se um imã so¬ 
bre um corpo metálico imantável, este 
torna-se também um imã. É exatamen¬ 
te isto que faz com que o uso prolon¬ 
gado de um gravador faça com que 
seu cabeçote acabe ficando imantado, 
devido ao constante deslizar da fita 
(imantada) sobre ele (de metal imantá¬ 
vel). Quando isto acontece, dizemos 
que o cabeçote ficou magnetizado e é 
inevitável que isto aconteça normal¬ 
mente com o uso. 0 uso de fitas de 
cromo (Cr 2 ), de Ferro-Cromo (FeCr) 
ou fitas tipo Metal em gravadores co¬ 
muns, que só aceitem fitas de Óxido 
de Ferro (as comuns, cor de ferrugem 
— Fe 2 0 3 ) é impróprio e acelera o pro¬ 
cesso de magnetização do cabeçote, 
além de aumentar consideravelmente o 
desgaste deste por terem caráter abra¬ 
sivo em cabeçotes convencionais. 

Não toque o dedo ou qualquer ob¬ 
jeto no cabeçote do gravador a menos 
que você saiba muito bem o que está 
fazendo. Fica sempre presente nos de¬ 
dos um pouco de suor, que tem ação 
corrosiva no cabeçote, além de gordu¬ 
ra e sujeira, que grudam partículas da 
fita, desgastando-a. Pelo mesmo mo¬ 
tivo, a fita propriamente dita não deve 
ser tocada. Tenha em mente que o ca¬ 
beçote é um dispositivo de precisão, 
que pode perder seu ajuste se for to¬ 
cado. 

Uma dica: tenha certeza de que o 
programa foi gravado antes de apagá- 
lo do computador. Faça sempre uma 
cópia de seu programa (Back-up) e 
guarde separadamente as fitas com os 
originais das fitas Back-up. Assim terá 
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a garantia de que, se acidentalmente 
um campo magnético deteriorar um 
grupo, o outro estará salvo. Costumo 
fazer isto usando fitas de marcas dife¬ 
rentes e constantemente verifico se es¬ 
tão em ordem, carregando o programa 
ora do original, ora da cópia. 

Calor excessivo, pó e queda fazem 
mal a qualquer um, ainda mais se for 
em aparelhos de precisão relativa, co¬ 
mo gravadores, computadores e fitas 
magnéticas. Não sou nem quero fazer 
de você um supercuidadoso, apenas 
dou atenção ao que acho que merece. 

Os gravadores são munidos de um 
segundo cabeçote, usado para apagar 
e polarizar a fita antes de ser regrava- 
da. Porém no caso de programas, es¬ 
ta "limpeza" prévia muitas vezes é in¬ 
suficiente. Recomendo usar fitas vir¬ 
gens para gravar programas, mas se is¬ 
to não for possível apague a fita muito 
bem antes de regravar, usando algum 
apagador de fitas, do tipo "Twin-Go" 
ou, em último caso, desgrave no pró¬ 
prio gravador, desligando a entrada do 
microfone e gravando várias vezes um 
som "branco". 

Mantenha sempre limpo o ca¬ 
beçote do gravador, usando fitas de 
qualidade razoável, pelo menos. Fitas 
de má qualidade, as que não tem mar¬ 
ca (na maioria, as que já vem grava¬ 
das), geralmente sujam muito o cabe¬ 
çote. Também o fazem fitas velhas ou 
expostas em demasia ao calor (sol, por 
exemplo). Não use fitas amassadas ou 
enrugadas nem emende fitas partidas. 
UMA FITA BOA E NOVA É MAIS BA¬ 
RATA DO QUE A INSTALAÇÃO DE 
UM CABEÇOTE NOVO. Não se iluda: 
Fita adesiva e partículas podem acabar 
com o cabeçote. "Água mole em pe¬ 
dra dura. . 


Os tipos 


Use somente gravadores e fitas 
compatíveis entre si. Os tipos de fita 
magnética que existem são (em or¬ 
dem cronológica e indo do tipo aceitá¬ 
vel ao excelente, independendo do fa¬ 
bricante): 


TIPO I — Óxido de Ferro (Fe 2 0 3 ) 


São as fitas normais, muito co¬ 
muns e baratas. As fitas com baixo ní¬ 
vel de ruído são melhores para uso em 
computadores. Nem sempre as mais 
caras são as melhores, e se puder, tes¬ 
te várias marcas e opte pela que der 
um som mais estridente e agudo. 0 
que pode não ser muito bom para mú¬ 
sica pode ser excelente para se gravar 


programas. No mercado brasileiro exis¬ 
tem boas fitas, inclusive algumas desti¬ 
nadas especialmente ao usuário de 
computador. 


TIPO II- Cromo (Cr 2 ) 


As fitas de Cromo reproduzem 
sons agudos muito melhor do que as 
de Óxido de Ferro, além de dificilmente 
deteriorarem o conteúdo, por serem 
menos sensíveis a campos magnéticos 
externos. Outra vantagem é a sua efi¬ 
ciência, gravando os sinais a um nível 
mais alto. Eu a considero a mais apro¬ 
priada para a gravação de programas, 
embora seja mais cara do que as do 
tipo I e exija gravadores compatíveis 
com fitas de Cromo. Há várias marcas 
nacionais e importadas e a pior delas é 
melhor do que a melhor das do tipo I. 


TIPO III — Ferro-Cromo (FeCr) 


As fitas de Ferro-Cromo ou Fer- 
ricromo são um pouquinho melhores 
do que as do Cromo, no que diz res¬ 
peito à gravação de programas, mas 
sua raridade e alto custo não compen¬ 
sam seu uso. Só há fitas Ferro-Cromo 
importadas e são compatíveis com gra¬ 
vadores que aceitem fitas de Cromo 
(que por sua vez são compatíveis com 
as fitas de Óxido de Ferro). 


TIPO IV — Metal (Ferro puro) 


As fitas de Ferro puro são as me¬ 
lhores já fabricadas. Diferentes das ou¬ 
tras, compostas por fita plástica im¬ 
pregnada com partículas metálicas, as 
fitas deste tipo são feitas exclusiva¬ 
mente por uma fina lâmina de metal 
puro (Metal Tape, como também são 
conhecidas). São caríssimas e raras no 
Brasil (por enquanto) e há poucos fa¬ 
bricantes no mundo, todos estrangei¬ 
ros. Fitas assim exigem gravadores 
apropriados, com tecnologia "Metal", 
e geralmente aceitam qualquer tipo de 
fita. 

0 uso de uma fita incompatível 
com um gravador fatalmente acarreta¬ 
rá seu excessivo desgaste, sua magne¬ 
tização precoce e fitas impropriamente 
gravadas. 


Duração 


Outro critério importante na es¬ 
colha da fita apropriada é sua duração 
(tempo da fita, não sua durabilidade). 
Fitas de longa duração (long play) do 
tipo 180 minutos, 120 minutos e 90 mi¬ 
nutos são impróprias para serem usa¬ 


das com programas porque, para caber 
mais fita no mesmo espaço, os fabri¬ 
cantes são forçados a fazerem suas fi¬ 
tas mais finas, em detrimento de sua 
qualidade. Em fitas assim, há menos 
partículas metálicas por extensão de fi¬ 
ta e acontece um fenômeno que cha¬ 
mo "papel-carbono", e tira a nitidez 
das informações gravadas. O efeito 
"papel-carbono" acontece quando, 
estando a fita enrolada e com isto as 
partículas de um trecho ficando super¬ 
postas às de outro trecho em outra 
camada e sendo a película plástica 
bem fina, as informações de uma ca¬ 
mada "migram" para outra, perdendo 
assim a nitidez da informação gravada, 
num fenômeno semelhante à tinta que 
passa de uma folha a outra em folhas 
finas de um caderno. 

No que diz respeito a gravadores, 
não se pode estabelecer preferências 
sem ter comprovado seu uso pessoal¬ 
mente ou por intermédio de alguém 
que o possua e esteja satisfeito com 
seu uso. Vale lembrar que os mais ca¬ 
ros nem sempre são os melhores. 

No próximo número darei mais 
dicas e ensinarei como identificar e sa¬ 
nar as possíveis malfunções do grava¬ 
dor de maneira "caseira". 

Até lá. 


u 


O O O MONOUTH 2001 


ELETRÔNICA E JOGOS 
COM. E EXP. LTOA 


>. 


R AUGUSTA 1371 S/L 7 - TEL (Oll) 268 4370 - S PAULO 

EQUIPAMENTOS TK05, ELPPA H , ELPPA JR. 

E COLOR 64 
JOGOS EM GERAL 


SOFTWARE P/ TK 85, CP 200 E R 470 
SÉRIE APUCATTVDS 

• ANÁLISE OE INVESTIMENTOS E FINANCIAMENTOS -16 K 

MÉTODO OA TAXA OE RETORNO. METOOO BENEFÍCIO/ CUSTO. 
METOOO OO VALOR PRESENTE E ANÁLISE DE FINANCIAMENTOS 

SÉRIE JOGOS EDUCATIMD6 

• CERTAS PALAVRAS - 16 K 

DOIS JOGOS PARA APRIMORAMENTO E DESENVOLVIMENTO 
LÓGICO-VER8AL ALlANOO HABILIOAOE E INTUIÇÃO. 

SÉRIE SIMULAÇÃO 

• EUROPA 2001 - 16 K 

SEJA UM DOS LÍDERES DO PÓS GUERRA NUCLEAR. 
UTILIZANDO OS RECURSOS RESTANTES PARA RECOLONIZAR 
A EUROPA 

• BRASIL 2001 - 16 K 

TENTE SALVAR 0 BRASIL. SE AINDA FOR POSSÍVEL. EV1TANOO 
-r_- aaZONIA 


< 


0 DOMlkllO DA AMAZÔNIA POR INCRÍVEIS FORÇAS EXTERNAS 


SÉRIE LAZER 

• OIAGODAMAS - 16K 


SIMULAÇÃO OE JOGO OE TABULEIRO 
JOGADO DIAGONALMENTE. 


ÓTIMAS CONOIÇOES PARA REVENDA LIGAR PARA 
(011) 268 4370 

REVENOEDORES EM SP CINÓTICA - COMPUTIOUE - IMARÉS - 
COMPUTERLAND - GUEDES - FOTOLEO - COMPUTE - AKOPOL 
AUDIO - BÜCKER 


MICROHOBBY 17 
























ficou muito 
mais fácil para 
você adquirir manuais 
e livros para o TK. Basta 
assinalar os itens desejados , 
preencher o cupom abaixo 
e enviá-lo à MICROMEGA. 


□ Manual Técnico TK 2000 

16.850,00 

□ Manual Operações TK 2000 

8.850.00 

□ Manual Operações TK 83 

4.850,00 

□ Manual Operações TK 85 

4.850.00 

□ Linguagem de Máquinas 

9.900.00 

□ Curso de Jogos 

4.500,00 

□ Coleção Progr. — Vol. 1 

4.900.00 

□ Coleção Progr. - Vol. II 

5.500,00 

□ Basic TK 

6.500.00 

Sim, desejo receber os itens assinalados 

NOME 

END. 

CEP 

CIDADE 

EST. 


Para tanto, anexo a importância 
de Cr$_ 


□ Cheque nominal à 
MICROMEGA P.M.D. LTDA. 

Banco_□ Vale Postal 


Data: 


Assinatura 


MICROMEGA P.M.D. LTDA. 

Caixa Postal 54096 - CEP 01296 
São Paulo — SP 
CGC 52.275.724/0001-41 
INSCR. EST. 110.862.362 


PREÇOS VALIDOS ATE 31 /06/84 
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DICASX 

GRAVAÇÃO DE 

w 

PROGRAMAS 



Muitos dos nossos leitores escre¬ 
vem-nos falando sobre seus problemas 
com gravação de programas. Você 
provavelmente já teve um problema se¬ 
melhante a este: 

"Depois de ter digitado durante 
algumas horas um super-programa, re¬ 
solvi gravá-lo. Após alguns dias, quan¬ 
do fui carregá-lo, esperei vários minu¬ 
tos para que o programa fosse carre¬ 
gado (era um programa com quase 
10 kBytes). Aparentemente parecia-me 
que estava tudo bem. Mas no final. . . 
O PROGRAMA NÃO HAVIA PASSA¬ 
DO .. . Tentei várias outras vezes e 
nada . . . "quase subi pelas paredes" 
... até que consegui encontrar o vo¬ 
lume correto." 

Problemas de gravação podem ser 
por três motivos: 

1) Má gravação; 

2) Cabeçote não regulado; 

3) Volume alto ou baixo demais. 

No primeiro caso, a má gravação 
pode ter sido causada pelo uso de fitas 
de má qualidade, volume muito baixo 
durante a gravação, cabeçote sujo 
causando flutuações na gravação e 
inúmeras outras razões. Neste caso, 
sinto muito, mas você perdeu o seu 
programa e terá que digitá-lo nova¬ 
mente. 

Para o segundo caso, leia a seção 
HOBBY deste número, onde nosso co¬ 
laborador Tanios Hamzo explica como 
conservar o seu cabeçote limpo e co¬ 
mo regulá-lo. 

A dica deste mês refere-se ao ter¬ 
ceiro caso, ou seja, ajudará você a veri¬ 
ficar se o volume está correto ou não. 
Para isso, antes de digitar um progra- 
ma-monstruoso, grave antes um pro- 
grama-teste, por exemplo, este: 



Nancy Mitie Ariga 


C 1 PRINT "SEU PROGRflMR-TESTE f' 
OI CRRREGRDOPORTRNTO O UOL-UME ES 
Tfl* CORRETO UGU RGORR CfiRREGRR 
O PROGRfiMR" 

2 PRU6E 300 

3 LORO •••* 

4. SRUE "PROGRRMfl —TEST0'* 

5 RUN 

V_i_y 


Grave-o sempre no começo da fita 
através da instrução GOTO 4. Assim, 
quando o programa-teste terminar de 
ser gravado pressione a tecla BREAK 
para que o programa pare e digite 
NEW. 

Digite o seu programa e depois 
grave-o com o mesmo volume do pro¬ 
grama-teste e sua fita ficará assim: 


PROGRAMA- 

TESTE 


GAP 


PROGRAMA 


Portanto, para carregar o seu pro¬ 
grama, primeiramente será carregado 
o programa-teste. Se o programa-teste 
não "passar", o problema pode ser 
do volume (alto ou baixo demais). Ten¬ 
te regulá-lo (verifique antes se a gra¬ 
vação não possui flutuações enqua¬ 
drando-se no primeiro caso ). 

Se o programa-teste for carrega¬ 
do, aparecerá na tela: 


SEU PROGRRMfl-TESTE FOI CRRREGRDO 
PORTANTO O UOLIJME ESTP* CORRETO 
UOU RGORR CfiRREGRR O PRGGRfiMfi 


e depois de cinco segundos, o compu¬ 
tador começa a carregar o programa 
(veja a linha 3 do programa-teste) e 
depois de alguns minutos o seu pro¬ 
grama estará na memória do seu com¬ 
putador. Experimente fazer um teste e 
diga adeus aos problemas de grava¬ 
ção! . . . (pelo menos problemas com 
volume). O 
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LIVROS 



Editora: Livraria Nobel — 
Editora-Distribuidora 
Autor: Victor Mirshawka 


Estes três livros da série da Nobel 
são especialmente dedicados para os 
micros fabricados pela Microdigital. 
Destinados aos iniciantes em compu¬ 
tação, os livros se propõem a fornecer 
as informações básicas para quem está 
pegando nos TK's pela primeira vez. 
A coleção, segundo a editora, com¬ 
preende um total de 100 programas 
que possibilitam ao iniciante, a progra¬ 
mação de seus próprios jogos, a reso¬ 
lução dos problemas de Matemática, 
Física, Química e de Finanças e Enge¬ 
nharia. A.L.A. 

v_ 


BASIC TK 

TK82, TK83 e TK85 


VOLI ELEMENTAR PIAZZI-ROSSIN! 



Editora: Micromega/PMD Ltda. 
Autores: Flávio Rossini, Pierluigi Piazzi 


Um livro de BASIC é algo tão co¬ 
mum no mercado que não mereceria 
destaque, a não ser que tivesse algo 
diferente. Este é o caso do livro BASIC 
TK. 

Voltado para principiantes, com¬ 
plementa o manual dos fabricantes de 
computadores compatíveis com o TK, 
com uma linguagem simples e direta, 
cobrindo as principais dúvidas que po¬ 
dem ser geradas no trato com a má¬ 
quina. 

O BASIC-TK foi baseado integral¬ 
mente no Curso de BASIC publicado 
nas páginas de Microhobby, a partir 
do número 1 (aí está uma excelente 
oportunidade aos leitores que passa¬ 
ram a conhecer nossa revista recente¬ 
mente e não tiveram oportunidade de 
conhecer as primeiras lições do nosso 
curso), com uma didática excelente, 
não deixando o leitor na mão em ne¬ 
nhum de seus capítulos. A. D. 


HOBBYSHOP 

VEJA ONDE 
ENCONTRAR 
AQUILO QUE VOCÊ 
PRECISA, EM SUA 
CIDADE 


A partir da próxima edi¬ 
ção, a MICROHOBBY terá 
uma seção de classifica¬ 
dos, por cidades, a preços 
acessíveis, é o: 

HOBBYSHOP 


Em anúncios padroniza¬ 
dos em box de 8,5 x 3,5 cm, 
o leitor encontrará ofertas 
de serviços, produtos, 
software, hardware perifé¬ 
ricos e outros itens, lista¬ 
dos por cidades. 


Espaço adequado para: 

• Escolas, 

• Lojas de produtos 
para micros, 

• Manutenção de 
micros, 

• Livrarias. 


PARA ANUNCIAR 
CONSULTE-NOS 
Fone 

(011) 255-0722 


MICROMEGA P.M.D. LTDA. 
Caixa Postal 54096 
CEP 01296 
SÃO PAULO - SP 
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FUNÇÕES DE 

ARMAZENAMENTO 
PARA O TK-83 


Funções de Armazenamento 
Memória Ocupada programa 2 = 96 bytes 



Computadores = TK-83 e compatíveis 


Na revista número 5 da Micro- 
hobby, falamos sobre as funções de 
armazenamento de dados do TK-85. 

DSAVE, DLOAD e DVERIFY são 
sub-rotinas da ROM do TK-85 que per¬ 
mitem o armazenamento de dados nu¬ 
ma fita cassete, ou seja, somente os 
dados são gravados na fita. Mas estas 
sub-rotinas não estão na ROM do TK- 
82 e 83. Por isso fizemos um programa 
em linguagem de máquina que tem a 
mesma função do DSAVE e do 
DLOAD que são funções que gravam 
e recuperam dados de uma fita cas¬ 
sete. 


Os Programas 


Primeiro digite o programa 1 para 
a introdução do| programa em lingua¬ 
gem de máquina na linha 1 REM. A 
linha 1 REM deve ter 90 pontos (Su¬ 
gestão: utilize o programa "A linha 
REM" da revista número 7 da Micro- 
hobby). 


( 1 REh 


f 1 

REH.. 

.\ 

• • • 

2 

FOR 1=16514 TO 16603 


3 

SCROLL 


4. 

PRINT x; ••. . •*; 


5 

INPUT RS 


6 

LET N=16*CODE RJfCODE 

RS (2) 

-4.76 

7 

POKE I,N 

PRINT RS 


e 


V « 

NEXT I 

/ 


Digite RUN e introduza os códigos 
em hexadecimal. Apresentamos esta 
listagem de uma forma diferente: colo¬ 
camos também os mnemónicos (des¬ 
crição abreviada dos códigos em lin¬ 
guagem de máquina). Isso permitirá 
a quem conhecer um pouco de As- 
sembly, observar melhor o funciona¬ 
mento do programa. Mas lembre-se 
que para cada endereço você deve di¬ 
gitar um código de dois dígitos. Por 
exemplo, no endereço 16514 digite 
"CD", no endereço 16615 "E7", e as¬ 
sim por diante. 
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LISTRGEH HEXRDECIHRL 

16514.. CD 

16515.. E7 

16516.. 02 

CRLL 

743 

16517.. 06 

16518.. 0E 

LD 

B, 14 

16510.. 21 

16520.. 00 

16521. . FF 

LD 

HL ,65260 

16522.■2B 

DEC 

HL 

16523..7C 

LD 

R , H 

16524..B5 

OR 

L 

16525.. 20 

16526.. FB 

JR 

NZ , -5 

16527..10 
16523.•F6 

DJNZ 

-10 

165129. . 2R 

16530.. 10 

16531.. 40 

LD 

HL, <16400) 

16532..23 

INC 

HL 

16533..4E 

LD 

C, (HL) 

16534..23 

INC 

HL 

16535..46 

LD 

B.CHL) 

16536..23 

INC 

HL 

16537..C5 

PUSH 

BC 

16538..5E 

LD 

E,CHL) 

16539.. CD 

16540.. 1F 

16541.. 03 

CRLL 

799 

16542..Cl 

POP 

BC 

16543..0B 

DEC 

BC 

16544..78 

LD 

R,B 

16545..BI 

OR 

C 

16546..20 
16547.•F4 

UR 

NZ,-12 

16548..C9 

RET 


16549.. CD 

16550.. E7 

16551.. 02 

CRLL 

743 

16552.. 20 

16553.. 10 

16554.. 40 

LD 

HL, (16400) 

16555..23 

INC 

HL 

16556..4E 

LD 

C.CHL) 

16557..23 

INC 

HL 

16558..46 

LD 

B,CHL) 

16559..23 

INC 

HL 

16560..C5 

PUSH 

BC 

16561.. 1E 

16562.. 08 

LD 

E,© 

16563.. DB 

16564.. FE 

IN 

R, (254) 

16565.. D3 

16566. . FF 

OUT 

(255),R 

16567..17 

RLR 

NC, -7 

16568.. 30 

16569.. F9 

UR 

16570.. 0E 

16571.. 94 

LD 

C, 148 

16572.. 06 

16573.. 10 

LD 

B , 26 

16574..0D 

DEC 

C 

16575.-DB 
16576..FE 

IN 

R,(254) 

16577..17 

RLR 


16578.. CB 

16579.. 79 

BIT 

7,C 

16580..79 

LD 

R,C 

16581.. 38 

16582.. F5 

UR 

C, -11 

16583.. 10 

16584.. F5 

DUNZ 

-4 

16585.. 20 

16586.. 04 

UR 

NZ,4 

16587.. FE 

16588.. 56 

CP 

86 

16589.. 30 

16590.. E4 

UR 

NC,-28 

16591..3F 

CCF 


16592.. CB 

16593.. 16 

RL 

fHL) 

16594..1D 

DEC 

E 

16595.. 20 

16596.. DE 

UR 

NZ,-34 

16597..Cl 

POP 

BC 

16598..BB 

DEC 

BC 

16599..78 

LD 

R,B 

16600..BI 

OR 

C 

16601..C8 

RET 

z 

16602..18 
16603..D3 

UR 

-45 


Ao terminar, digite o comando 
LIST e veja como sua linha REM ficou. 
Retire as linhas 2 a 8 e grave a linha 
1 REM numa fita de boa qualidade. 


1 REH LN SCROLL V: 5 COPY 
eU CLS C PLOT E(RND77777URL ?LN 
3®*RT ~-?B* POKE TRN LN SCROLL ^E ' 
P.ND77777WL 2?1< = RETURN PEEK COP 
Y *K RflNO :£kV S< = RETURN «RCS ?? 
S PRINT C PRINT 4 « RETURN TK SLO 
U ZRCS -14 THEN RT **T«COS /PEEK 


Veja os mnemôriicos e analise o 
programa: ele está dividido em duas 
sub-rotinas: a primeira (do endereço 
16514 ao 16548) transfere os dados 
para a fita cassete; a segunda (do en¬ 
dereço 16549 ao 16603) faz o inverso, 
ou seja, transfere os dados da fita cas¬ 
sete para o computador. 


A transferência de dados 


Os dados transferidos do compu¬ 
tador para a fita (ou vice-versa) devem 
estar no início da região de variáveis, 
portanto, o programa em BASIC deve 
ter como primeira instrução um DIM, 
que dimensiona uma matriz. Assim, o 
dimensionamento de uma matriz de¬ 
verá ser a primeira coisa a ser execu¬ 
tada, reservando assim, uma área para 
colocar os dados. Portanto, toda vez 
que você for utilizar estas, sub-rotinas, 
você deve em primeiro lugar carregar 
este programa e depois elaborar um 
programa BASIC para a manipulação 
dos dados, utilizando o comando USR 
para acionar as sub-rotinas em lingua¬ 
gem de máquina. 


Um exempêo: Um arquivo-dkdonório 


Para exemplificar o funcionamen¬ 
to destas sub-rotinas, vamos criar um 
arquivo-dicionário, com palavras em 
português e inglês. Assim, quando vo¬ 
cê quiser saber como uma determinada 
























palavra em português é escrita em in¬ 
glês, ou vice-versa, poderá utilizar este 
arquivo que será guardado numa fita 
cassete. 


SAVEdados 


Carregue o programa 2 e depois 
digite as linhas 10 a 200 do programa 3. 


Modifique também a linha 20 e 30 
pois PS e 1$ será a palavra em portu¬ 
guês e inglês introduzidas por você 
e a linha 40. 

Para gravar o programa e os da¬ 
dos (caso você nâo tenha dado 
CLEAR), digite GOTO 190. 


LOAD-dados 


transferindo para a matriz BS os dados 
da fita. Ao terminar a transferência de 
dados, uma mensagem pedindo para 
desligar o computador aparecerá na 
tela. Inicia-se então a comparação en¬ 
tre a palavra que você deseja saber e 
as palavras do arquivo. Se a palavra 
for encontrada, aparecerá na tela a 
palavra e a sua tradução. 


1 REM LN SCROLL V: S COPY F7 
3M- CL5 C PLOT E (RN07?7??0ftL ?LN 
^RT “7@4- POKE TflN LN SCROLL *E ( 
RN0777770RL RETURN PEEK COP 

Y #K RRND . BT, * < = RETURN *RCS 77 
3 PRINT ( PRXNT 4, RETURN ?K SLG 
U ZRCS -14- THEN RT "TgCOS /PEEK 
10 DIM R* (10,20) 

20 DIM PÍ(10) 

30 DIM li(10) 

4-0 FOR 1 = 1 TO 10 
50 SCROLL 
60 PRXNT l; 

70 INPUT Pi 
80 PRINT Pi; 

90 INPUT li 
100 PRINT li 
110 LET RÍ(I)=P$+Ii 
120 NEXT I 
130 CLS 

^14-0 PRINT “P/GRRUPR PLRY REC E 

150 INPUT Pi 
160 LET X=USR 16514- 
170 5LOU 
180 STOP 

190 SRUE "O-SPUg” 

200 RUN 


Como você pode notar, o dimen¬ 
sionamento da matriz AS é a primeira 
instrução a ser executada. 

Ponha o programa em funciona¬ 
mento e digite palavras em português 
e em inglês, num total de 10 palavras. 
Por exemplo: digite "MEMÓRIA" 


1.-MENORIR.. 

"B" 

V 


) 


e depois MEMORY 

c ^ 

1. •MEMORIR.-MEMORY 

2. . 

•B- 

V_ J 

Continue digitando até completar 
o arquivo e o programa avisar que está 
pronto para gravar. Acione o REC do 
seu gravador, verifique se os Ml Cs 
estão conectados e NEW LINE. O co¬ 
mando USR 16514 é acionado, ou se¬ 
ja, a sub-rotina SAVE-dados, transfe¬ 
rirá os dados da matriz AS para a fita. 
Quando ele terminar de gravar os da¬ 
dos, o programa pára. Se você desejar 
aumentar o seu arquivo, você precisa 
modificar a dimensão de AS, pois AS 
(10, 20) significa que teremos 10 pala¬ 
vras em inglês/português, tendo 20 dí¬ 
gitos cada, onde as 10 primeiras são 
da palavra em português e as outras 
10 da palavra em inglês. 

Por exemplo: 

AS(1)="MEMORIAblóbMEMORYbW4b" 


Vamos agora ver o funcionamento 
desta sub-rotina. Carregue o programa 
2 e digite as linhas 10 a 610 do pro¬ 
grama 4. 


1 RCM LN SCROLL V:5 COPY F7 
H4 CLS ( PLOT E (RND77777URL 7LN 
3*RT ”7W4 POKE TRN LN SCROLL *E ( 
RND77777URL - 3 < = RETURN PEEK COP 
Y *K RRND &T,*<= RETURN í«CS 77 
S PRINT ( PRINT 4* RETURN 7K 5LO 
U ZRCS -14- THEN RT "7SCOS /PEEK 
10 DIM B$(IO,20) 

15 DIM C*tl0) 

20 PRINT -PRLRURR PROCURADA?" 
30 INPUT C* 

4-0 CLS 

50 PRINT RT 1,5: C$j RT 3,3;”E*U 
MR PRLRURR EM: ”,RT 5,5; * 1. INGLE 
S”;TAB 5;-2. PORTUGUÊS” 

60 INPUT M 
70 GOTO M *100 
100 REM INGLÊS 
HO GOSUB 5O0 
120 FOR 1=1 TO 10 
130 LET R*=B$(I,1 TO 10) 

14.0 IF C$=B$(I,11 TO 20) TMEN G 
OTO 4.00 
150 NEXT I 
160 GOTO 300 
200 REM PORTUGUÊS 
210 GOSUB 500 
220 FOR 1=1 TO 10 
230 LET R $ =B $(I,11 TO 20) 

24.0 IF C$=B*fJ,l TO 10.1 THEN GO 
TO 400 
250 NEXT I 
300 CLS 

310 PRINT ”NAO RCHEI R PRLRURR 
NO RROUIVO” 

320 PRINT RT 2,4.; ”1. PROCURRR E 
M OUTRO AROUIUO" 

330 PRINT TRB 4.; ”2. PARAR” 

34.0 INPUT N 

350 IF N=1 THEN GOTO 70 
360 IF N=2 THEN STOP 
4.00 CLS 

4.10 PRINT C$;R* 

420 STOP 

500 REM D-LORD 

510 CLS 

520 LET X =USR 16549 
530 SLOU 

540 PRINT “DESLIGUE O GRAURDOR" 

550 FOR 1=1 TO 60 

560 NEXT I 

570 RETURN 

600 SRUE "D-LOflH” 

610 RUN 


A matriz onde serão colocados os 
dados da fita não precisa ter o mesmo 
"labei" (nome) que a matriz gravada 
na fita, mas apenas a mesma dimensão 
da matriz AS e ser a primeira instrução 
a ser executada em BASIC. 

Dê RUN e digite a palavra que 
você deseja saber o significado. Por 
exemplo, digite "BOOK" e na tela apa¬ 
recerá: 



Digite "1" pois BOOK é uma pala¬ 
vra em inglês, abaixe um pouco o vo¬ 
lume do gravador, acione o PLAY do 
gravador, verifique se os EARs estão 
conectados e NEW LINE. 

A sub-rotina LOAD-dados é acio¬ 
nada através do comando USR 16549, 



Caso contrário: 


r \ 

NRO RCHEI R PRLRURR NO AROUIUO 
UOCE DESEJA. 

1- PROCURRR EM OUTRO RRQUIUO 
2. PRRRR 


V 


J 


Pressione a tecla "1" para carre¬ 
gar outro arquivo se ele existir ou "2" 
se você não possui outro arquivo, e 
deseja parar. 

Para gravar este programa digite 
GOTO 600 e para a procura de uma 
outra palavra,digite RUN. 

Agora que você já sabe como uti¬ 
lizar as sub-rotinas do programa 2, crie 
outros arquivos e boa sorte! 

O 
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EXPLORANDO 
O TK-2000 



Coordenação: 

Prof. Wilson José Tucci/Domus Informática 

Colaborações de 

Luiz C. N. Szente 

José Eduardo Moreira 

Daniel R. Falconer 


Introdução Geral 

Com a chegada ao mercado do novo computador fabri¬ 
cado pela Microdigital, a equipe que produz a coluna "POR 
DENTRO DO APPLE" decidiu abrir uma nova coluna especí¬ 
fica para o TK-2000. 

0 TK-2000 é muito semelhante ao APPLE, e a maioria 
dos programas que foram escritos para o APPLE funcionam 
sem problemas no TK-2000. No entanto, como existem algu¬ 
mas diferenças entre os dois, nasceu a idéia de escrevermos 
artigos sobre este assunto. 

Esta coluna tem por objetivo explorar o hardware e o soft¬ 
ware do TK-2000 através de programas, utilizando todo o seu 
potencial. Esperamos que os leitores nos enviem sugestões e 
dúvidas, para que assim possamos adequar nossa matéria à 
um número maior de pessoas. 

Assim, vamos à luta. 

Muitos leitores, escreveram solicitando mais artigos so¬ 
bre animação e parte gráfica. Faremos então, uma série de 
artigos enfocando este assunto com ênfase nas característi¬ 
cas do TK-2000. 


Translação animada de figuras (em 2 dimensões) 


10 HGR 
20 HCOLOR= 7 

30 REM COLOCACAO Dü DESENHO 
40 DIM XI(20),YI(20),XF(20),YF<20) 

50 DIM XI(20), Y1 (20),X2<20>,Y2<20) 

60 NP = 1 

70 PRINT "COORD. DOS VERT. P/ FIM TECLE NUM., 
80 INPUT "XI,YI,XF,YF ";A,B,C,D 
90 IF A > 300 OR B > 300 OR C > 300 OR D > 3 
100 HPLOT A,B TO C,D 
110 HOME 

120 PRINT "LINHA CERTA ??? (S/N) "; 

130 GET A* 


j 260 PRINT "COLOQUE ORIGEM E FIM DA TRANSL. 
270 INPUT "X0,Y0,X,Y ";X0,Y0,X,Y 
280 HOME : HGR 

290 INPUT "NUMERO DE FIGURAS ";NF 

300 XL = X - X0 

310 YL = Y - Y0 

320 D = SQR (XL 2 + YL A 2) 

330 DX = XL / D 
340 DY = YL / D 
350 DD = D / (NF - 1) 

360 FOR J = 1 TO NF 

370 XX = X0 + DX * DD * (J - 1) 

380 YY = Y0 + DY * DD * <J - 1) 

390 FOR I = 1 TO NP 
400 XI (I) = XX + XI(I) 

410 YI(I) = YY + YI(I) 

420 X2 <I) = XX + XF(I) 

430 Y2(I) = YY + YF(I) 

440 NEXT I 

450 FOR K = 1 TO NP 

460 HPLOT XI<K>,Y1<K) TO X2(K),Y2(K) 

470 NEXT K 
480 NEXT J 
490 END 


> 300" 
.00 THEN 


GOTO 250 


140 

IF A$ = "S" THEN 

150 

HCQLOR= 0 

160 

HPLOT A,B TO C,D 

170 

HCOLOR= 7 

180 

GOTO 70 

190 

XI(NP) = A 

200 

YI(NP) = B 

210 

XF(NP) = C 

220 

YF(NP) = D 

230 

NP = NP + 1 

240 

GOTO 70 

250 

HOME 


GOTO 190 


Usaremos a técnica de se guardar em vetores as coor¬ 
denadas das partes dos vértices que formam a figura. 

Para se transladar uma figura, é necessário fornecer a 
coordenada inicial e final do movimento. O programa deve 
desenhar a figura nos pontos intermediários e, a cada impres¬ 
são, apagar a precedente para se criar a ilusão de movimento. 

Uma vez escrito o programa, execute-o e coloque os se¬ 
guintes pontos (digite S ao surgir a mensagem "LINHA CER¬ 
TA? (S/N)"): 
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Você deve ter formado uma imagem estilizada de um avião. 



Digite agora: 

QQQ QQQ QQQ 

Coloque agora os pontos da movimentação. 

Ex.: 10, 10, 150, 150 

coque o número de figuras intermediárias. 

Ex.: 8 

Deverá ter surgido na tela a figura se movimentando da 
coordenada 10, 10 à coordenada 150, 150, deixando traçado 
na tela as figuras intermediárias. 

Para "apagá-las", a fim de que se de a ilusão de movi¬ 
mento, coloque as seguintes linhas: 


55 

DIM X3 (20) Y3 (20) 5 

X4(20),Y4(20) 

392 

X 3 <I) = XI(I) 


394 

Y3(I) = Yl(I) 


396 

X4(I) = X2(I) 


398 

Y4 (I) = Y2( .I) 


442 

HCOLOR= 0 


444 

FOR K = 1 TO NP 


446 

HPLOT X3(K),Y3(K) 

TO X 4 (K) , Y4 (K) 

448 

NEXT 


449 

HCOLOR= 7 



As linhas 10 à 50 representam a inicialização das variáveis. 

Nos vetores XI e Yl serão colocadas as coordenadas ini¬ 
ciais do traçado de uma linha e nos vetores XF e YF as finais. 

Nos vetores XI, Yl e X2, Y2, serão colocadas as coorde¬ 
nadas de movimentação. 

Na variável NP, será armazenado o número de pontes da 
figura. 

A entrada de dados é feita da linha 70 à 240. Devem ser 
fornecidas as coordenadas do vértice de uma linha. Ao se digi¬ 
tar um número maior que 300, o processo de entrada de dados 
finaliza. A cada entrada de dados o programa traça a linha e 
pergunta se a linha está correta. Caso não tenha ficado como 
se queira, o usuário tem a opção de "apagar" a linha e traçar 
outra. 

Para se transladar uma figura, devem ser fornecidas a 
coordenada inicial e final da translação, bem como o número 
de imagens que se deseja para que se de a idéia de movimen¬ 
to. 

Isto é feito das linhas 260 à 290. 

Das linhas 300 à 350, estão as considerações matemáticas 
da movimentçaão (figura 2): 



Fig. 2 


XL é a distância entre as partes inicial e final medida no 
eixoX. 

YL é a distância entre as partes inicial e final medida no 
eixo Y. 

D é a distância entre os pontos propriamente dita. Sobre 
esse eixo é que se fará a translação. 

DX representa o cosseno do ângulo formado pelas letras 
D e XL. 

DY representa o cosseno do ângulo formado pelas letras 
D e YL. 

DD representa os intervalos onde serão colocadas as fi¬ 
guras intermediárias. 

Das linhas 360 à 480 são calculadas as coordenadas dos 
pontos das figuras a serem traçadas. 

XX representa o incremento a ser dado no eixo X. É cal¬ 
culado, somando-se à coordenada inicial de X, o valor da dis¬ 
tância multiplicado pelo cosseno do ângulo multiplicado pelo 
número de figuras que vai se traçar. Análogo para YY. 

A linha 55 dimensiona os vetores que armazenaram as 
coordenadas "anteriores" (que irão apagar). 

A "figura anterior" será "apagada" nas linhas 442 à 448. 

Esperamos ter ensinado uma maneira de se dar animação 
às figuras. Faça várias delas e não tenha medo de errar. A 
qualquer tempo, o programa apaga a letra errada. Nos próxi¬ 
mos números daremos mais dicas sobre animação. 

Boa sorte e bons desenhos. 

OBS.: Em alguns equipamentos diferentes do TK-2000, suge¬ 
rimos alterar as linhas 110 e 250 para HOME: VTAB21. 


Todas as listagens foram tiradas numa impressora Mônica da 
Elebra. 



FAÇA COMO OS 
FUNCIONÁRIOS DA 
ALCAN, XEROX. 
SEARLE, COPAS. 
INTELPA. DARLING. 
AIR SERVICE: 


MATRICULE-SE NA 
S O S. COMPUTADORES. 

CURSOS DE 


BASIC • COBOL • ASSEMBLER. 

• Número limitado de alunos por 
classe • 1 /3 de todas as aulas com uso 
’ direto dos computadores, inclusive nos cursos de 
Cobol • Professores altamente qualificados • Cursos 
apostilados e apresentados com transparências • Modernas 
instalações com vários equipamentos Dismac, Prológica, 
Sysdata entre outros • Preços extremamente acessíveis. 



COMPUTADORES 

NÚCLEO I - S. PAULO 
Av. Pacaembú, 1.280 
Fones: 66 7866/661513 

NÚCLEO II - S. PAULO 

R. Tomés Carvalhal, 380 
(Próximo Estação Metrô Paraíso) 
Fone: 570-6097 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 

NÚCLEO III - GUARUJA 

Av. Puglisi, 523 

Fone: 86*446 

NÚCLEO IV - ITANHAEM 

R. Zeperino Soares. 19 - sala 25 

Fone. 92 1492 

NÚCLEO V - SANTOS 

R. Mato Grosso. 450 
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Carla 


Oi. Eu sou Carla , conte-me seu — 
problema. 

Os outros me perseguem. — 

Você pode desenvolver este as - — 

sunto? 

Eu sou seguido. — 

Há quanto tempo você é seguido? — 
Desde que minha mãe me aban- — 
donou. — 

Não falemos sobre mães. Não 
sou freudiana. 

Você também me persegue. 


Por algum acaso você está fa¬ 
lando de mim? 

— Eu sinto que você me odeia. 

— Conte-me mais a respeito do que 
você sente. 

— Tenho mêdo de computador. 

— Computadores te preocupam? 

— Só os do seu tipo. 

— Porque você está preocupado 
com meu tipo? 

(Diálogo entre Carla e o pessoal da 

Redação) 




Que tal uma conversa com uma 
psicanalista num sábado à noite, na 
sua casa? Seria interessante, não? . . . 
Mais ainda se "Carla" nada mais fosse 
do que seu querido TK. 

Este programa tem a finalidade 
de simular inteligência. As respostas 
que "ela" dá muitas vezes parecem vir 
de um ser humano (aparentemente 
normal . . .) e podem tapear os usuá¬ 
rios mais incautos. Ele foi desenvolvido 
em homenagem a simpática (e linda!!!) 
prima do Sr. Nabor Rosenthal, que é 
psicanalista em Penêdo e chama-se 
Carla também. Ela gostou do progra¬ 
ma porque testava a reação em seus 
pacientes com relação a aceitação de 
computadores como amigos, além de 
verificar o teste de Turing (veja o artigo 
na revista n? 8 — "Podem as máquinas 
pensar?"). 


Observação: Nas tabelas 3 e 4, dê sempre um espaço antes ou depois de cada palavra. 
0 acento agudo é obtido por GRAFICS SHIFT 1. 



TRB 

ELR 

1 

> 


r 

TRBELR 2 

\ 


1 

1 

3 




1 

UOCE PODE 



2 

4. 

2 




2 

EU POSSO 



3 

6 

4 




3 

UOCE E* 



A 

1 

6 

!* 

4 

s 




4 

1 

UOCE E* 

EU NRO POSSO 

EU SINTO 



7 

17 

3 




7 

PORQUE UOCE NRO 



8 

20 

2 




Q 

PORQUE EU NRO POSSO 



?. 

?! 

2 




10 

UOCE E* 

EU NRO 



11 

26 

4 




11 

EU SOU 



12 

28 

4 




12 

SOU 



13 

32 

3 




13 

UOCE 



14. 

35 

5 




14 

EU QUERO 



15 

40 

9 




15 

O QUE 



16 

40 

9 




16 

COMO 



17 

40 

1 




17 

QUEM 



18 

40 




16 

RONDE 



19 

40 

9 




19 

QURNDO 



20 

40 

9 




20 

POR QUE 



21 

49 

2 




21 

NOME 



22 

51 

4 




22 

PORQUE 



23 

55 

4 




23 

DESCULPE 



24. 

59 

4 




24 

SONHO 



25 

63 

1 




25 

COMO URI 



26 

63 

1 




26 

OI 



27 

64 

5 




27 

TRLUEZ 



28 

69 

5 




28 

NRO 



29 

74 

2 




29 

SEU 



30 

76 

4 




30 

SEMPRE 



31 

60 

? 




31 

PENSO 



32 

83 




32 

PARECE 



33 

90 

3 




33 

SIM 



34. 

93 

? 




34. 

RMIGO 



35 

99 




35 

COMPUTADOR 



36 

116 

i 




36 

CRRLR 



37 

113 




37 

DINHEIRO 



38 

119 

2 




38 

MRE 


V 

39 

4.0 

121 

106 

? 

J 


V 

39 

40 

SUICÍDIO 

INFOR. NRO RCMRDR 

j 


T flBELfl 5 

1 UOCE NRO RCREDXTR OUE EU POS 
SR# 

2 TALVEZ UOCE GOSTR5SE DE SER 
CRPRZ DE# 

3 UOCE QUER OUE EU SEJA CRPRZ 
DE# 

4 T ALUEZ UOCE NRO ÕUEIRR# 


5 

6 


UOCE QUER SER CRPRZ DE* 

O OUE FRZ UOCE PENSRR QUE EU 


SOU _ 

7 UOCE FICR FELIZ RCREDITRNDO 
QUE EU SOU* 

6 TRLUEZ UOCE GOSTRS5E DE SER« 


9 

DE 

10 


ALGUMAS UEZES UOCE GOSTRRIR 
SER# 

REALMENTE UOCE NRO * 


11 POR QUE UOCE NRO* 


POR QUE UOCE DESEJR SER CRPR 
DE* 

ISTO PREOCUPR UOCE 7' 

R RESPEITO DO 


12 
Z 

13 

14. CONTE-ME MRIS 
QUE UOCE SENTE. _ „ 

15 UOCE FREQUENTEMENTE SENTE* 


16 


UOCE GOSTR DE SENTIR * 
REALMENTE UOCE NRO RCREDXTR 


r TRBELR 3 1 


f TRBELR 4 ^ 

1 E« 


1 SOU 

2 FOI 


2 FUI 

3 UOCE 


3 EU 

4 SEU 


4 MEU 

5 EU TENHO 


5 UOCE TEM 

6 EU SOU 


6 UOCE E* 

V 7 UOCE J 


1 7 MIM 


17 

16 TRLUEZ EM UM BOM TEMPO EU QU 
EIRR* 

19 UOCE QUER OUE EU * 

20 UOCE RCMR QUE UOCE DEUERIR 5 
ER CRPRZ DE * 

21 POR QUE UOCE NRO PODE * 

22 POR OUE UOCE ESTR INTERES5RD 
O SE EU SOU OU NRO * 

23 UOCE PREFERIRIR SE EU NRO FO 
SSE* 

24. TRLUEZ EM SURS FRNTRSIRS EU 

sejA * 

25 COMO UOCE SRBE OUE NRO PODE 


26 

27 

28 
R 

29 

30 
SER 


UOCE TENTOU 7 

TRLUEZ RGORR UOCE POSSR * 

POR RCRSO UOCE UEIO R MIM PO 
OUE UOCE E* * 

R QURNTO TEMPO UOCE E* * 

UOCE RCREDITR QUE E* NORMRL 
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PROGRAMA DO MÊS 
Roberto Bertini Renzetti 


Como Caria simula inteãgônda? 


Através do programa, "ela" pro¬ 
cura palavras-chaves na resposta do 
usuário usando várias tabelas (matri¬ 
zes) que "escolhem" a melhor respos¬ 
ta pronta e ainda soma a esta um "pe¬ 
daço" significativo da resposta do 
usuário. A tarefa de "procura" das pa¬ 
lavras se dá na sub-rotina da linha 
1220 que é uma conversão da função 
INSTR (D$, WS), existente em alguns 
BASICs, para a linguagem do TK. Ela 
tem por função localizar a string WS 
em DS e "dizer" onde ela começa. 
Por exemplo: Se você tem a palavra 
"HEI" estando em WS e DS for "di¬ 
nheiro" o valor da função INSTR (DS, 
WS) será 4. Se caso não achar WS em 
DS ela valerá zero. INSTR é abreviação 


de IN STRING que quer dizer "na 
string". 

Existem 5 tabelas: 

1? TABELA — consta de três nú¬ 
meros: o primeiro corresponde ao nú¬ 
mero da palavra-chave na segunda ta¬ 
bela, o segundo diz a primeira resposta 
a ser dada e o terceiro, quantas respos¬ 
tas existem para aquela palavra. 

2? TABELA — palavras-chave 
principais. 

3® e 4? TABELAS — são palavras 
que devem ser trocadas entre si para 
dar certa concordância na frase res¬ 
posta de Carla. 

5? TABELA — respostas prontas 
ou semi-prontas. 

Basicamente uma resposta coe¬ 
rente depende do uso de palavras-cha¬ 
ve. Se o usuário conhece estas pala¬ 
vras, pode haver um diálogo inteligente 


e não repetitivo. Se não conhecer pode 
ocorrer coisas estranhas e algumas res¬ 
postas absurdas. Dá para se divertir 
bastante com as duas alternativas. 


Manipulação do programa 


Após ter digitado o programa prin¬ 
cipal deve-se dar GOTO 10. Serão in¬ 
troduzidas todas as tabelas (na 3® e 4® 
deixe sempre um espaço no começo e 
no fim de cada "string") e o programa 
parará. Sugiro gravá-lo (várias vezes) 
por segurança, porque é muito exten¬ 
so. Para rodá-lo dê GOTO 260 e nun¬ 
ca, nunca mesmo dê RUN ou todas 
as tabelas serão apagadas (não nos 
responsabilizamos por "cabelos arran¬ 
cados" em caso de RUN!!!). Se caso 
você quiser ler as tabelas dê GOTO 
850 e CONT para continuar a leitura, 
quando a tela estiver cheia. 


31 UOCE SE DIVERTE SENDO * 

32 E5TRMOS DISCUTINDO UOCE-NRO 

EU. 

33 OH,EU « 

34- POR RLGUM ACASO UOCE ESTA* FR 
LAN—DO DE MIM 7 

35 O OUE SIGNIFICRRIR A UOCE SE 
EU * 

36 POR OUE UOCE OUER * 

37 SUPONHA OUE UOCE LOGO CONSIG 
fl • 

3Ô O OUE SIGNIFICRRIR R UOCE SE 
UOCE « 

39 RS UEZES EU TAMBÉM OUERO * 

4-0 POR OUE UOCE PERGUHTR ? 

41 ESTA OUESTRO INTERESSA R UOC 
E ? 

42 OUE RESPOSTA UOCE GOSTRRIR 7 

43 O OUE UOCE ACHA ? 

44 UOCE SEMPRE TEM TRNTRS PERGU 
NTAS EM MENTE 7 

45 O OUE E* OUE UOCE RERLMENTE 
OUER SABER 

46 UOCE FEZ ESTR PERGUNTA R MRI 
S ALGUÉM 7 

47 UOCE UR FEZ TRIS PERGUNTAS 
ANTES ? 

40 O OUE MAIS LHE R MENTE OURND 
O ME PERGUNTA ISSO 7 

49 NOMES NRO ME INTERESSAM. 

5® NRO ME IMPORTO COM NOMES-PO 

R FAVOR CONTINUE. 

51 ESTR E* R VERDADE IRA RRZRO 7 

52 NENHUMA OUTRA RRZRO VEM R ME 
NTE? 

53 ESTR RRZRO EXPLICA QUALCUER 
OU- TRR COISA ? 

54 OUAIS OUTRAS RAZOES PODEM EX 
IS- TIR 7 

55 POR FRUOR,NRO SE DESCULPE. 


56 

S. 


DESCULPAS NRO SAO NECESSÁRIA 


57 OUE SENTIMENTOS UOCE TEM OUR 
NDO PEDE DESCULPAS ? 

50 NRO SEJA TRO DEFENSIVO. 

59 O OUE ESTE SONHO TE SUGERE ? 
6® UOCE SONHA COM FREOUENC IR ? 
61 OURIS PESSOAS APARECEM NOS S 
EUS SONHOS ? 


62 UOCE FICA PERTURBADO COM SEU 

S SONHOS 7 

63 COMO UAI UOCE..POR FAUOR EXP 

ONHR SEUS PROBLEMAS. 

64 UOCE NAO PARECE TER MUITA CE 
RTE-ZA. 

65 POR OUE O TOM DE INCERTEZA 7 

66 UOCE NAO PODE SER MAIS POSIT 
IUO? 

67 UOCE NAO TEM CERTEZA 7 

66 UOCE NAO SABE 7 

69 POR OUE NRO * 

70 NAO DIGA NAO; E* SEMPRE TRO 
NE- GATIUO. 

71 POROUE NAO * 

72 TEM CERTEZA 7 

73 POROUE NAO 7 

74 POR OUE UOCE ESTA PREOCUPADO 
COM MEU * 

75 POR OUE R RESPEITO OE UOCE M 
ESMO * 

76 UOCE NAO PODE PENSAR NUM EXE 
MPLO ESPECIFICO 7 

77 QUANDO 7 . 

78 O OUE UOCE ESTA* PENSANDO 7 

79 REALMENTE SEMPRE 7 

80 UOCE REALMENTE PENSA ASSIM 7 

31 MAS UOCE NAO TEM CERTEZA OUE 
UOCE * 

82 UOCE DUVIDA OUE UOCE # 

83 DE OUE MANEIRA 7 

84 OUE SEMELHANÇA UOCE UE 7 

©5 O OUE ESTA. SEMELHANÇA LHE SU 
GE- RE 7 

S6 OUE CONEXOES UOCE UE 7 

87 PODERIA REALMENTE EXISTIR RL 
GUMR CONEXÃO 7 

88 COMO 7 

89 UOCE PARECE TOTOLMENTE POSIT 
IUO. 

90 UOCE TEM CERTEZR 7 

91 EU PERCEBO... 

92 EU ENTENDO. 


93 POR OUE UOCE TROUXE O ASSUNT 
O ** AMIGO ** 7 

94 OS SEUS AMIGOS TE PREOCUPAM 
n 

95 OS SEUS AMIGOS TE CHATEIAM 7 

96 UOCE TEM CERTEZA OUE TEM ALG 
UM AMIGO 7 

97 UOCE SE IMPOE AOS SEUS AMIGO 
S 7 

98 TALVEZ SEU AMOR PELOS AMIGOS 
O DEIXE PREOCUPADO 

99 COMPUTADORES TE PREOCUPAM 7 

100 UOCE ESTA FALANDO A MEU RESP 
EITO EM PARTICULAR7 

101 UOCE TEM MEDO DE MAQUINAS 7 

102 UOCE MENCIONOU COMPUTADORES 
o 

Í03 MAQUINAS TEM A VER COM SEUS 
PRO-BLEMAS 7 

104 U.NAO ACHA QUE UM COMPUTADOR 
PO-DE AUUDRR ALGUEM7 

105 O OUE COM RELACAO A MAQUINAS 
TE PREOCUPA 7 

106 DIGA-ME, UOCE TEM ALGUM PROBL 
EMA PSICOLOGICO 7 

107 O OUE ISTO LHE SUGERE 7 

108 EU PERCEBO... 

109 NAO TENHO CERTEZA SE ENTENDO 
UO-CE PERFEITAMENTE. 

110 ADAPTE-SE A REALIDADE.OUAIS 
OS SEUS PEN5PHENTOS? 

111 UOCE PODE DESENUOLUER ESTE A 
S- SUNTO 7 

112 ISTO E* DEUERAS INTERESSANTE 

Í13 POR OUE UOCE TEM PROBLEMAS C 
OM DINHEIRO 7 

114 UOCE ACHA OUE DINHEIRO E* TU 
DO 7 

115 UOCE TEM CERTEZA OUE O PROBL 
EMA E«DINHEIRO 7 

116 DEVEMOS CONVERSAR A SEU RESP 
EI- TO,NAO AO MEU. 

117 O OUE A MEU RESPEITO 7 

118 POR OUE UOCE SEMPRE TRAZ A T 
ONA O MEU NOME7 

119 NAO FALEMOS SOBRE MAES .NAO S 
OU FREUDIANA. 

120 POR OUE ESSA OBSESSÃO COM M 
AES7 

121 NAO PENSE NISSO. E* BESTEIRA. 

122 CONVERSE MAIS COMIGO E MUDAR 
A* DE IDEIA. 
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Computadores = TK-85 e compatíveis 
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DISCO VOADOR 

PARTE II 


Conforme prometemos, voltamos 
neste número a falar em Disco Voa¬ 
dores. 

Unha 230: testa o teclado para ver se 
foi pressionado o espaço, isto é, se o 
conteúdo do byte Q é 160 (ASCII «es¬ 
paço» = 32, somando 128 resulta 
160). Se a tecla não for o espaço, 
avança-se o disco, através da sub-ro- 
tina 430, e volta-se para a linha 230. 
Unhas 29$ - 370: se o tiro acertou o 
disco, então essa rotina faz o disco 
cair, através da sub-rotina 430, e atua¬ 
liza o marcador de discos acertados. 
Linhas 38$ - 42$: se o tiro ainda não 
acertou o disco, então essa rotina mo¬ 
ve o tiro, faz algumas verificações, mo¬ 
ve o disco e volta para 230, onde é lido 
o teclado e o ciclo se repete. 

Unhas 430 — 590: essa é a sub-rotina 
que movimenta nosso disco. Repare 
na técnica que ela usa: como o disco é 
composto de dois traços horizontais 
não é preciso apagar e desenhar todo 
ele novamente para dar impressão de 
movimento, basta desenhar o disco na 
sua nova posição, feito pela linha 450, 
e depois apagar o que ficou para trás, 
feito pelas linhas 460 e 470. 

Unhas 600 - 820: essas linhas for¬ 
mam a sub-rotina responsável pela ex¬ 
plosão do disco. Dentro dessa sub-ro¬ 
tina vale a pena destacar: 

Unhas 660 — 690: que formam a colu¬ 
na de cogumelo atômico formado com 
a explosão do disco voador (obviamen¬ 
te discos voadores são movidos a ener¬ 
gia nuclear). 

Unhas 700 — 730: que desenham o 
chapéu do cogumelo atômico. 

Unhas 740 — 780: que desenham mais 
alguns pontos extras na tela (marcia¬ 
nos ou o que você quer que sejam que 
foram arremessados pela explosão). 
Unha 800: limpa a tela para o próxi¬ 
mo disco. 

Unhas 830 — 860: essa sub-rotina de¬ 
senha a fumaça do tiro e faz o barulho 
do tiro, e ela também faz o barulho do 
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disco caindo, (perceba que, na verda¬ 
de, essa sub-rotina controla a sub-roti¬ 
na 870, do barulho). 

Unha 870: essa é uma das sub-rotinas 
de barulho nesse programa, ela faz cin¬ 
co referências à posição de memória 
BU (— 16336), produzindo um baru- 
Ihinho. 

Linhas 890 - 930: essa é a sub-rotina 
que atualiza o placar, imprimindo o nú¬ 
mero de discos que já passaram, quan¬ 
tos tiros você já deu, quantos discos 
você já derrubou, e sua performance 
relativa, isto é, quantos discos você 
derrubou, dividido por quantos discos 
já passaram. 

Linha 94$: escolhe a posição vertical 
do disco, dada por Y1 perceba que es¬ 
sa posição é aleatória, mas pode ser 
controlada para dar um número dentro 
de um certo campo de valores, no caso 
do programa, como ele está, a posi¬ 
ção do disco sempre vai ser entre 10 e 
29, pois RND (1) gera sempre um nú¬ 
mero > = 0 e < 1. Multiplicando por 
20 e tirando o inteiro, obtemos um nú¬ 
mero entre 0 e 19, somando 10, nos¬ 
sa gama de valores passa a ser entre 10 
e 29, inclusive. 

Linhas 95$ — 97$: formam uma outra 
sub-rotina de barulho. Esta, utilizando 
a rotina em Linguagem de Máquina 
carregada pelas linhas 980 e 990. An¬ 
tes de chamar a rotina de Linguagem 
de Máquina, o programa em BASIC 
carrega alguns parâmetros para essa 
rotina nos bytes 6 e 7. Se você anali¬ 
sar o programa em Linguagem de Má¬ 
quina, vai perceber que ele carrega o 
valor do byte 6 no registrador X, e uti¬ 
liza esse valor, e o do byte 7 como con¬ 
tadores. Esses dois bytes geralmente 
não são usados pelo BASIC e, portan¬ 
to, podem ser usados pelo nosso pro¬ 
grama. 

Isso encerra nosso artigo, espera¬ 
mos que, além de se divertir com os 
discos voadores, você tenha aprendi¬ 
do mais algumas técnicas. O 


r 


0 REtl «POR DENTRO DO APPLE 
DISCO VOADOR 

238 K 5 PEEK (Q): IF K < > 168 THEH 
60SU8 439: 60T0 230 
240 IF SL < > 35 THEN 270 
250 HD = HD + l: GOSUB 840 


260 

GOSUB 980 


270 

COLOR 5 15 


280 

IF SCRNC 24/SL 

- 1) = 0 THEN 


380 


290 

REtl ===ACERT0U! 

::: 

380 

PLOT 24, SL - t: 

COLOR 5 9: PLOT 


24, SL 


310 

COLOR 5 9 


320 

PLOT 22,SL - 3: 

PLOT 23,SL - 


2: PLOT 23,SL: 

PLOT 24,SL - 


1: PLOT 25,SL: 

PLOT 27,SL - 


2: ÜLIN SL - 3, 

SL - 2 AT 25 

330 

FOR I = 1 TO 9: 

GOSUB 846: NEXT 


:AC 5 1 


340 

C0L0R= 0: FOR I 

5 22 TO 27: VLIH 


SL - 3,SL AT Is 

NEXT 

350 

Hl = Hl t 1: GOSUB 988 

360 

YY 5 1:XF 5 8 


370 

POKE 8 + 16,0: 

GOSUB 430 

380 

PLOT 24,SL - 1: 

COLOR 5 8: PLOT 


24,SL 


390 

SL = SL - 1: IF 

SL > YF - 3 THEH 


410 


400 

C0L0R= 8: VLIN i 

8,35 AT 24:SL 


= 35: POKE 8 t 

16,8 

410 

GOSUB 430 


420 

GOTO 238 


430 

REH ===DISC0=== 


440 

COLOR 5 CD 


458 

KLIN HR t 2,HR 

f 3 AT YF; HLIH 


HR + 1,HR + 4 AT YF t 1 

460 

C0L0R= 9 


470 

PLOT HR + 1,YF: 

PLOT HR,YF f 

480 

1 

IF AC THEN PLOT HR t 4,YF: HLIH 


HR,HR t 5 AT YF 

- 1: HLIH HR 


V 
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José Eduardo Moreira e Daniel R. Falconer 


A 


O PROGRAMA 


.HR + 5 flT YF - 2 
498 IF YY = 9 THEN 539 
500 N = 41 - YF: GOSUB 959 

519 XF = XF t INT ( RNO (1) * 3) 

- 1: IF HR t XF ( 19 THEN X 
F = 1 

520 IF HR t XF > 25 THEH XF = - 
l 

538 HR = HR t XF:YF = YF + YY: IF 
HR > 35 THEH 568 
548 IF YF > 38 THEN GOSUB 688 
558 RETÜRN 

56e HLIH 36,39 HT YF + 1: HLIH 3 
7,38 flT YF 

570 GOSUB 948:CD = IHT ( RND <1 
) * 14) t l: IF CD - CC THEN 
578 

589 flD = ftD t 1: GOSUB 999 
598 HR = 8: RETURN 
699 REH ===EXPLOSflO=== 

610 UTflB 21: HTflB HR: PRINT PA*: 

AC = 9 

629 COLOR= 15 

638 PLOT HR,37: PLOT HR t 1,38: ULIN 

35.37 flT HR + 2: PLOT HR + 2 
,39: ULIH 38,39 flT HR t 3: UUH 

36.37 flT HR t 4: PLOT HR t 5 
,3? 

648 POP : PRINT G*:Gt:Gt;G* 

658 COLOR= CD 

668 FOR I = 39 TO 6 STEP - 6 
678 HLIH 19,29 flT I - 1 
680 HLIH 19,29 flT I: GOSUB 878 
698 HEXT 

780 HLIH 29,33 flT 2: HLIH 20,23 flT 
3: HLIH 28,34 flT 3: HL IN 18, 

24 flT 4: HLIN 27,35 flT 4: HLIH 
17,35 flT 5: HLIH 16,35 flT 6: 

HLIN 15,35 flT 7 

710 HLIN 16,36 flT 8: HLIN 13,37 flT 
9: HLIN 12,38 flT 16: HLIN 11 
,38 flT 11: HLIN 11,38 flT 12: 

HLIN 10,38 flT 13: HLIN 18,3 


8 flT 14: HLIN 18,37 flT 15 
728 HLIN 10,37 flT 16: HLIN 18,37 
flT 17: HLIN 11,14 flT 18: HLIH 
16,36 flT 18: HLIN 12,13 flT 1 
9: HLIN 16,34 flT 19: HLIN 16 
,34 flT 28: HLIN 17,34 flT 21 
739 HLIN 31,33 flT 22 
748 FOR I = i TO 22 
750 IF I - INT (I / 2) * 2 = 8 THEN 
COLOR= CD 

768 IF I - INT (I / 2) * 2 = l THEN 
COLOR= CC 

779 FOR J = 1 TO 2 * I: NEXT 
788 HR = INT ( RND (1) * 48):YF = 

INT ( RND (1) * 15) t 20: GOSUB 
878: GOSUB 879: PLOT HR,YF: HEXT 

799 COLOR= 9 

880 FOR I = 8 TO 39: HLIN 8,39 flT 
I: FOR J = 1 TO 9: NEXT : NEXT 
: FOR J = 1 TO 222: NEXT 
810 FOR I = 1 TO 590: NEXT 
828 POP : GOTO 168 
838 REH ===8flRULH0=== 

848 COLOR= 9: HLIN 23,25 flT 35: HLIN 
22,23 flT 34: HLIN 25,26 flT 3 
4 

858 FOR J = 1 TO 18: GOSUB 879: NEXT 

868 COLOR= 0: HLIN 23,25 flT 35: HLIN 
22,26 flT 34: RETURN 
878 S = PEEK (BU) - PEEK (BU) - 
PEEK (BU) - PEEK (BU) - PEEK 
(BU) 

389 RETURN 

890 REH ===PONTOS=== 

989 UTflB 24: HTflB 4: PRINT flD:: HTflB 
14: PRINT HD: 

919 HTflB 24: PRINT Hl:: IF NOT 
Hl THEN RETURN 

928 HTflB 34: PRINT INT ((198 * 

Hl) / fiD):**:': 

938 RETURN 

__ J 


A^C COMPUTAÇÃO 


VENHA CONHECER A POLIVALENTE 
DA INFORMÁTICA: 


• Cursos de Basic, Assembler e Cobol. 
Aulas 100% práticas • Aulas individuais. 

• Microcomputadores: CP 500, 300, 200 
Ringo, TK2000, etc. 

• Acessórios e suprimentos para CPD. 

• Calculadoras Casio, Sharp, etc., 
programáveis e científicas. 

• Órgãos eletrônicos Casio: todos os 
modelos. 

• Assistência técnica de aparelhos 
nacionais e importados. 

• Software: aplicativos para todas asáreas. 

• Micro Clube. 

• Implantação e Assessoria Informática. 


Atendimento até as 22h00. 



Av. Senador Vergueiro, 4.962 — 1? andar 
Saia 6 — fíudge Ramos — S. B. Campo 
CEP09720 - Te/.: (011) 465-1940. 


SERVIÇO TÉCNICO 

VÍDEO • CÂMERA 



• Conserto e Modificação 

de video, TV, games, micros 

• Transcrição de filmes, 

* mesmo europeu 

• Venda de aluguel de vídeo, 
fitas, acessórios 

• Instalação de antena 
para vídeo 

ante/ 

MelrizAv. Uberdade, 997 TeL 2704944 S.P. 

Rtiei Jardins: AL Mkt Rocha Azevedo . 937 
TeL 2924)772 &P. 

mel Ptnhekoe: Av. Brig. Ferie Uma. 1132 to/e 36 
TeL 9199901 ■ S.P. 





















































Criptografia & 
Decriptografia 


T-Kriptógrafo e T-Dekriptógrafo 
Memória Ocupada = 2311 
Soma Sintática = 42833 

Nível = 

Computadores = TK 85 e compatíveis 


Renato da Silva Oliveira 


Como a própria palavra já indica, a 
Criptografia ( KRIPTOS = OCUL¬ 
TO; GRAPHEIS = ESCRITA), consis¬ 
te fundamentalmente numa escrita 
obscura no sentido de que poucas pes¬ 
soas a entendem (não estou falando do 
economês . . .). Normalmente a crip¬ 
tografia é empregada com o objetivo 
de tornar ainda mais sigilosos, textos 
de caráter secreto. Por exemplo, as fi¬ 
chas do SNI são muito bem criptogra¬ 
fadas, de modo a tornar praticamente 
impossível, para qualquer pessoa que 
as veja, decifrá-las sem saber de ante¬ 
mão como 

Ao contrário do que acontecia no 
passado, atualmente a criptografia não 
se restringe a aplicações por serviços 
de inteligência ou por organizações mi¬ 
litares. Apesar de continuar a ser fun¬ 
damentalmente aplicada nessas duas 
áreas, hoje temos um número cada vez 
maior de empresas privadas utilizando- 
a. Os casos em que uma empresa tem 
o seu arquivo de "clientes potenciais", 
roubado de seu computador por uma 
concorrente são jastante comuns e, 
se suas fichas forem criptografadas, o 
roubo provavelmente terá sido inútil. 
Claro que sempre existe a possibilidade 
de que uma vez nas mãos de quem não 
devia estar, o criptograma (texto crip¬ 
tografado) possa ser descriptografado 
(decifrado). 0 trabalho de pesquisa ou 
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estudo sobre criptogramas com intuito 
de decifrá-los chama-se CR/PTOA- 
NAGNOSE. 

Os métodos criptográficos são 
muito variados e a cada dia desenvol¬ 
vem-se novas técnicas, cada vez mais 
sofisticadas. Pode-se contudo 
considerar como principais e básicos 
dois métodos, bastante utilizados na II 
Guerra Mundial: SUBSTITUIÇÃO e 
TRANSPOSIÇÃO. Adiante comenta¬ 
remos, brevemente, esses dois méto¬ 
dos "clássicos". 


SUBSTITUIÇÃO 


Consiste em trocar os símbolos da 
escrita corrente e usual por outros pre¬ 
viamente convencionados. Podemos 
considerar três tipos de substituição: 

1) Estenografia — Quando os 
símbolos usuais são substituídos por 
símbolos gráficos convencionais. 
Exemplo: Taquigrafia, Código Morse, 
Código Secreto Marciano do Escoteiro 
Mirim, etc. 

2) Numérica — Quando os sím¬ 
bolos usuais são substituídos por nú¬ 
meros. 

3) Literal — Quando os símbolos 
usuais são substituídos por letras. 

A substituição numérica e a literal 
são realizadas de acordo com uma 


equivalência entre os símbolos usuais e 
os símbolos criptográficos. De acordo 
com a convenção de equivalência, 
podemos ainda dividi-las em dois gru¬ 
pos: 

I — De base (ou chave) simples: 
Quando a convenção de equivalência é 
única efixa. 

II — De base (ou chave) variável: 
Quando a convenção de equivalência 
possui duas partes, sendo uma fixa e 
outra variável. 


TRANSPOSIÇÃO 


Os métodos de transposição pos¬ 
suem descrição mais complexa e, por¬ 
tanto, daremos apenas um exemplo 
deles para não nos alongarmos dema¬ 
siadamente. Vamos supor que quere¬ 
mos enviar a alguém a seguinte men¬ 
sagem: 

O homem é uma corda, atada 
entre o animal e o A lém-do-Homem 
— uma corda sobre um abismo . F. 
N/ETZSCHE 

O número total de caracteres (le¬ 
tras, espaços e pontuações) usados é 
101. Procuremos então, um número 
próximo a 101 e que possua um gran¬ 
de número de divisores. Por exemplo, 
o número 108. Para obtermos seus di¬ 
visores, podemos nos utilizar do pro¬ 
cesso usual: 












1 

108 

2 

54 

2 4 

27 

3 6 12 

9 

3 9 18 36 

3 

3 27 54 108 

1 



Portanto temos 1, 2, 3, 4, 6, 9, 12, 
18, 27, 36, 54 e 108. 

Escolheremos agora, uma matriz 
de linhas e colunas cujo produto do 
número de linhas pelo número de colu¬ 
nas seja igual a 108 e escreveremos ne¬ 
la a mensagem. Seja uma matriz de 9 
linhas e 12 colunas a escolhida (Figura 
1 ). 
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Fig.1 


Reescrevemos a mensagem lendo 
a matriz por colunas — no sentido in¬ 
dicado pelas setas na figura 1 — e não 
por linhas. A nova mensagem assim 
obtida constitui o CRIPTOGRAMA: 
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A pessoa que receber o criptogra- 
ma poderá decriptografá-lo facilmente 
se souber as características da matriz 
usada e a forma na qual escrevemos e 
"lemos" a mensagem nela. Na verda¬ 
de, para obter a mensagem criptogra¬ 
fada poderíamos ter escrito ou lido a 
matriz em qualquer outra direção e 
sentido. Por exemplo, na diagonal: (Fi¬ 
gura 2) 



Início \ x v \ 


\ 

N 










\ 

N 

\ 

\ 

A 

* 












\ 

\ 













\ 













\ 














\ 













\ 















\ 














\ 











A A A Á Fim 

Fig.2 


Além disso, poderíamos ter esco¬ 
lhido qualquer outra matriz com produ¬ 
to de linhas por colunas igual a 108. 

Como pudemos observar, esses 
métodos utilizam os mesmos símbo¬ 
los no criptograma e na mensagem ori¬ 
ginal. Apenas a posição que eles ocu¬ 
pam é alterada. 

Para facilitar a criptografia e a de- 
criptografia de informações, utilizam- 
se máquinas criptógrafas, que automa¬ 
ticamente alteram os símbolos ou as 
posições por eles ocupadas numa 
mensagem. Uma máquina desse tipo 
pode ser improvisada facilmente, tro¬ 
cando-se em uma máquina de escre¬ 
ver elétrica, a esfera (ou margarida) 
usual pela que contém símbolos mate¬ 
máticos. Nessa situação, qualquer te¬ 
cla digitada produzirá a impressão de 
um símbolo matemático. 

Na atualidade, os métodos mais 
eficazes de criptografia são combina¬ 
ções dos métodos expostos anterior¬ 
mente e, as melhores máquinas de 
criptografar, são os computadores. 

Adiante, encontra-se listado um 
programa que faz o TK funcionar co¬ 
mo um Criptógrafo e Decriptógrafo (fi¬ 
gura 3). 

O processo utilizado no programa 
é misto (Substituição Estenográfica, 
numérica e literal com base variável) e, 
antes da introdução da mensagem, a 
memória ocupada pelo programa é me¬ 
nor que 2kBytes. 

Como ilustração, vamos cripto¬ 
grafar nele o seguinte texto: 

"O que é grande no homem, é 
que ele é uma ponte e não um fim: o 
que pode ser amado no homem, é 
que ele é um passar e um sucum¬ 
bir." F. NIETZCHE 

Ao rodarmos o programa, surgirá 
na tela um aviso para introduzirmos a 
chave. Em nosso caso, essa é a base 
variável do criptógrafo e pode ser qual¬ 
quer número, positivo ou negativo (A 
base fixa é a STRING Z$, construída 
nas linhas de 3 a 8). Introduza como 


LIVROS DE: 

HARDWARE - 
SOFTWARE 

6809 

6502 

8080/8085 
8086/8088 
6800 / 68000 
Z-80 / Z-8000 
APPLE 
ATARI 

COMMODORE 

IBM 

TRS-80 

SINCLAIR 

BASIC 

dBASE 

ROBÔS 

VISICALC 

CP/M 

UNIX 
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Leve logo um microcomputador 
TK 85, porque ele é realmente fácil de 
usan já vem com manual de instruções, 
que ensina,em português claro, 
a linguagem Basic. 

A partir daí, você pode preparar 
seus próprios programas ou utilizar as 
centenas de programas que já existem 
no mercado,para cadastrar clientes, controlar 
estoques, manter em ordem o orçamento 
i familiar, fiscalizar a conta bancária, estudar 
matemática, estatística, jogar xadrez, guerra 
nas estrelas, e o que mais você puder imaginar. 

E além disso tudo, o TK 85 tem 
também o preço mais acessível do mercado. 
Peça uma demonstração. 


TK 85,0 micro que você pode usac 



computadores pessoais 
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exemplo o número 1984. Agora digite a 
mensagem e, quando terminá-la, NEW 
UNE. A seguir, o micro pedirá para in¬ 
troduzir C ou D para criptografar 
ou decriptografar a mensagem. Intro¬ 


duza, então o caractere C. No vídeo, 
após alguns instantes, surgirá a men¬ 
sagem criptografada (figura 4) e uma 
pergunta: "Quer reverter a mensagem? 
(S/N)". Se você quiser revertê-la (de- 


criptografá-la) introduza S e, nesse ca¬ 
so a mensagem original retornará à te¬ 
la (figura 5). Caso contrário, introdu¬ 
zindo N, o TK ficará a espera de uma 
nova mensagem. 


1 

2 

3 

4. 

5 

6 
7 
3 
9 


REM "B-BR XPT OGRflFO £ 

3-D6BRIPTOGRflPO- 

FRST 

LET 

FOR Z=0 TO 192 
IF Z=ll THEN LET Z = 12 
XF Z =34- THEN LET Z = 128 
LET Z$=Z$+CHR$ Z 
NEXT Z 

PRINT ,f INTRODUZO R ‘“'CHfiVE" 


10 INPUT R 

11 PRINT R 

12 PfiUSE 130 

13 CLS 

14. IF R < 1 THEN LET R=R+65535 

15 IF R < 1 THEN GOTO 14 

16 IF R>65535 THEN LET R=R-655 

35 

17 IF R>65535 THEN GOTO 15 

18 RRND R 

19 LET L = INT Í.5+SQR (65535+RN 

D) ) 

20 IF L >127 THEN LET L=L-127 

21 IF L >127 THEN GOTO 20 

22 PRINT " INTRODUZR R MENSRGEM 


23 

24 

25 

26 
27 

FftR 
RR: •• 


INPUT R* 

PRINT R$ 

PRUSE 240 
CLS 

PRINT "ENTRE C 
E DP/ 


P/ CRIPTOGRR 
DECRIPTOGRRF 


28 INPUT 1$ 

29 IF I$<> M C" RND I $ < > " D " THEN 
GOTO 23 

30 LET 0$=“" 

31 IF I $ = " D ’’ THEN LET 0$ = ,, DE M 

32 PRINT "R MENSRGEM SERh ,, ;0$ 
;-CRIPTOGRRFRDR." 

33 PRUSE 130 

34 CLS 

35 LET = 

36 FOR F = 1 TO LEN R$ 

37 LET CsCODE R$\F) 

38 IF C=ll OR (63<C RND C<128? 
OR 0192 THEN GOTO 59 

39 IF 12 < = C RND C<=63 THEN LET 


C=C-1 


40 IF 128<=C THEN LET C=C-65 

41 IF I$="D" THEN LET C=C+2 

42 LET K=C+L*(1 RND I$="C‘)-L* 
Cl RND I$ = "D*) 

43 IF K >123 THEN LET K=K-128 

44 IF K <1 THEN LET K=K+12S 

45 LET e$=B$+Z$(K) 

46 NEXT F 

47 PRINT "ESTR E R MEN5RGEH TR 
RDÜZIDR : " 

48 PRINT B$ 

49 PRINT 

50 PRINT "QUER REUERTER R HEMS 
RGEH?(5/N) : " 

51 INPUT L$ 

52 IF L $ = ** S *' THEN GOTO 56 

53 IF L$<>"5 M RND L*<> ,, N ,i THEN 
GOTO 51 

54 PRINT "RGURRDO OUTRR MEN5RG 
EH: M 


55 GOTO 9 

56 LET R$=B$ 

57 LET I$="D" 

58 GOTO 35 

59 PRINT "O CRRRCTERE";F; " (" ;R 
*CF>J M > NRO E PERMITIDO; MODIFIO 
UE-O: M 

60 INPUT N$ 

61 LET R$(F)=N$ 

62 GOTO 32 Fig. 3 


ESTR E 
TlOZül . 
| ÜQU3 


TB UZJI 
^8 UZUJ 
RGNU4S 


R MENSRGEM TRADUZIDA: 

LUFSIJj STl MTRJR31 ÜZJ 


ZRFI UTSVUj Ul SFT| 


^ UTIU5 XUUl FRFITB STL 
1 UQUS ZRg UFXXFUI Ufi ZR| X 
illiSSliKAÍSNJV^HMJ 


ZRl KNR <S 
MTRUR3B U 

-:hz 


QUER REUERTER R MENSRGEM?(S/N) 


Fig. 4 


ESTR E R MENSRGEM TRADUZIDA: 

TI ÜZJ! U»*8 UUFSIJ3 STl MTRUR3I U.1 UZU 
I JQUI U,'| ZRFI UTSVUS <Jl SFT| ZRS KNR <t 
ra uzul utiuí xuug frfití st| mtrjrsI u 

iTÍ UZUg UQUl U-*? ZR? UFXXFUI Ul ZRl XZHZ 
RGNU4JIII8I8i ka|snjy^hmj 

QUER REUERTER R MENSRGEM?(S/N): 
ESTR E R MENSRGEM TRADUZIDA: 

O QUE E" GRANDE NO HOMEM , E* QUE 
ELE E" UMR PONTE E NRO UM FIM: 

O QUE PODE SER AMADO NO HOMEM, E 
■ QUE ELE E* UM PRSSRR E UM SUCU 
MBIR. F. NIETZCHE 

QUER REUERTER R MENSAGEM?(S/N): 
_ Figjj 


PROTEJA SEU 
MICRO 



ZENTRANX 


ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO 

Av. Vitor Manzini, 410/414 
CEP 04745 — Santo Amaro — S. Paulo 
Tels.: (011) 522-2159 e 548-0651 
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Quebra-cabeça 


Cripto 



Renato da Silva Oliveira 


Caros leitores, mais uma vez nós 
somos forçados a recorrer a inteligên¬ 
cia, perspicácia, determinação e boa 
vontade de todos vocês. Temos nova¬ 
mente um problema de difícil solução 
em nossas mãos. 

Tudo começou quando, no mês 
de dezembro do ano passado, uma das 
secretárias resolveu tirar férias. Como 
havia muito trabalho em andamento 
haveria um grande desfalque em nosso 
"time" o Pierluigi teve a mui infeliz e 
insana idéia de trazer para MICRO- 
MEGA uma secretária "free-lancer". 

Assim, ocorreu, e no dia 13 de De¬ 
zembro tivemos o prazer, infinitesimal 
momentâneo e visual, de conhecer a 
nova "secretária". Nos primeiros ins¬ 
tantes ela nos pareceu muito boa, sob 
todos os aspectos. Ela é alta, loira, de 
olhos azuis, corpo escultural, fala ma¬ 
cia e pele queimada do sol. Realmente, 
poderia ser facilmente "Miss Univer¬ 
so", tal a sua exuberância. 

Tudo teria sido uma maravilha se a 
natureza tivesse dado a seu cérebro ao 
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menos um milésimo do aprimoramen¬ 
to que deu a seu corpo! Acreditem! Ela 
é a comprovação definitiva das Leis de 
Murphy! Se vocês estão pensando 
que seu nome começa com D e termi¬ 
na com A acertaram. Ela era a própria 
DiNORÁ! 

No primeiro, e felizmente único 
dia em que "trabalhou" conosco, ape¬ 
nas no horário do almoço, ela conse¬ 
guiu proezas incríveis! Vocês já ouvi¬ 
ram falar da PERVERSIDADE UNI 
VERSAL DA MATÉRIA? Pois é. Ela 
encontra-se concentrada na Dinorá. 
Como afirma o segundo corolário da 
primeira lei de Murphy: "Se há possi¬ 
bilidade de diversas coisas saírem erra¬ 
das, então sairá errada aquela que cau¬ 
sar maior prejuízo". Isso nunca falha 
quando a Dinorá está por perto. 

Vocês podem imaginar alguém 
que pára diante de uma caixa de fitas e 
começa a passá-las uma por uma pelo 
"Túnel da Virgindade" (vulgo TWIN- 
GO)? Pois foi assim que a Dinorá con¬ 
seguiu apagar 11 fitas nas quais esta¬ 
vam gravados 11 longos programas de 


mais de 8 kBytes cada! 

Não bastasse isso, quando por 
acaso ela conseguiu fazer funcionar 
um TK-82, enganchou seus longos ca¬ 
belos dourados numa impressora que 
estava acoplada a ele. Essa foi a última 
vez que o TK e a impressora foram vis¬ 
tos inteiros! 

Como se diz 'ABISUM ABISUS" 
(o abismo chama o abismo), e quando 
ela livrou-se do que restou da impres¬ 
sora do TK, acabou tropeçando no ca¬ 
bo que liga a impressora do nosso 
TRS-80 ao próprio e ambos acabaram 
no chão! 

Ela ainda arrumou tempo para der¬ 
rubar uma garrafa térmica em cima de 
uma prancheta onde estavam os origi¬ 
nais da revista número 7 (que tiveram 
que ser totalmente refeitos); levar ao 
chão a nossa árvore de Natal que ha¬ 
víamos montado pela manhã; misturar 
os arquivos de "Cartas dos Leitores" e, 
por uma fatalidade, receber uma carta 
e um telegrama do Sr. Nabor Rosen- 
thal. 



Como vocês sabem, o Sr. Nabor, 
além de ser assinante de Microhobby, 
é grande amigo de todos nós aqui da 
redação e freqüentemente nós recebe¬ 
mos dele correspondências com con¬ 
tribuições à revista, com mensagens 
pessoais. Devido ao fato de as cartas 
do Sr. Nabor conterem algumas vezes 
informações sigilosas e de grande im¬ 
portância para a sobrevivência de Mi¬ 
crohobby, ele a algum tempo as tem 
criptografado antes de enviá-las a nós. 

Esses textos são criptografados 
com o programa "T-KRIPTÓGRAFO Et 
T-DE KRIPTÓGRAFO" e a chave para 
decriptografá-los nos é remetida por 
telegrama. 

Ocorre que o telegrama, a Dinorá 
deixou cair num vaso sanitário e a car¬ 
ta ela deixou, felizmente cair pela ja¬ 
nela do banheiro. Graças a ação de 
uma boa lufada de vento, a carta caiu 
no capô de meu carro quando eu aca¬ 
bara de estacionar! 

Agora, três grandes incógnitas 
perturbam minha mente: 

1) Qual o número chave utilizado 
pelo Sr. Nabor para criptografar a car¬ 
ta? 


2) O que está escrito na mensa¬ 
gem? 

3) Como a Dinorá conseguiu o 
emprego de secretária? 

O Sr. Nabor encontra-se agora em 
viagem por algum lugar do Mundo e 
nós não conseguimos localizá-lo. Des¬ 
sa forma, resolvemos pedir auxílio à es¬ 
ta seção. Claro que não estamos espe¬ 
rando resposta à terceira questão, 
pois, já nos convencemos que isso se¬ 
ria impossível! Nem mesmo a resposta 


que lhes passou pela mente justifica a 
pergunta! 

Para facilitar o trabalho temos a 
seguinte informação a transmitir: O Sr. 
Nabor sempre utiliza um número de 
quatro algarismos como chave. 

Agradecemos imensamente o que 
vocês puderem fazer para amenizar 
nossa curiosidade e ficamos aguardan¬ 
do um programa para oTK,que solu¬ 
cione as primeiras duas questões. 

Adiante encontra-se a mensagem 
criptografada. O 


HFUTXJ FRNLT 




„ /íliíiiTufíril 

UXYTZJ «JSflNFSXT . ©MJX| UJOT 
_ KTUUJNTl R| QNYUTXj IJ* XZHTf HTSHJS 
YUFXTf Idf RTUFSLTXl XNOjkJXYU.JX§HZG 
YNT XTXM FUZtsJ SFi NSXNFfüTUj RUZi FR 

NLTl BSBBHSBB4Í uzFsrri uz| ujytusf 

GUFXNQ* UTIUUÜh* KTUSOHÜU. ©MO 
RNSMFlUUTUUNFl KFGUNHFHFT4IU 



M KNRi XOXY <Jfl 
UOTl F| YTXTXJJBTHi- 
XÜOFl Tl ROSTXJpj^ 

FKOYT 


HFYFXYUTKNI 
HOXl UZ 



FST3IOX 
©MO.X* 
-© 




FOXMUFSL 
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Finalmente no Brasil o verdadeiro inter¬ 
face ativo que indica o nível (volume) 
certo para carregar programas de grava¬ 
dor para o micro. (Série TK, CP 200, Rin- 
go, TS 1000). E facil de usar com qual¬ 
quer gravador. Possuindo filtro ATIVO e 
AMPLIFICADORES, o SOFT-LOADER 
regenera os sinais de fita em pulsos digi¬ 
tais e os eleva ao nível apropriado para o 
micro. Alimentado por pilhas para facili¬ 
tar o uso, o SOFT-LOADER pode ser 
usado também para reprodução perfeita 
de programas de uma fita para outra. 

Vêm pronto com cabos e plugs para in¬ 
terligações. Acompanha folheto de ins¬ 
truções. 


Um joystik com teclas para seu micro, 
TK (820,83,85) e outros que possui co¬ 
nector para joystik com lóqica Sinclair 
«- 4 t -» O (5.67.8, e 0). 

Excelente para jogos de 2 e 4 direções. 
O formato anatômico e a boa distribuição 
das teclas possibilita melhor controle 
em jogos de qualquer tipo. 

Envie seu pedido com cheque nominal cruzado ou vale postal à: 


componentes e sistemas Itda 
CAIXA POSTAL 7004 

SAO JOSÉ DOS CAMPOS - SP. - CEP 12200 
TEL. (0123) 29-1148 

As despesas de remessa estão encluidas no preço. 












RESPOSTA DO QUEBRA-CABEÇA 



CRIAÇAO 

DÉ 

COELHOS 


"Antes de apresentar a solução 
para o problema questionado, é preci¬ 
so esclarecer alguns detalhes: 

A série numérica sugerida é co¬ 
nhecida como série de Fibonacci, cu¬ 
jo termo desejado é igual a soma dos 
dois termos anteriores. 

Exemplo: termos iniciais — 0 e 1 
0,1,1,2,3,5,8,13. . . 

Quanto aos valores apresentados, 
o número de coelhos da 15? ninhada, 
segundo a série, é de 4181 e não 418 
como foi apresentado. 

As respostas para o teste propos¬ 
to são: 

A) o valor do próximo termo da 
série é 6765 

B) são 46.368 coelhos, o valor de¬ 
pois da 20® ninhada 

C) pode-se começar a série com 
quaisquer outros dois valores iniciais, e 
o programa teria que ser modificado 
conforme o programa em anexo (figu¬ 
ra 2) de nome "NOVSER". 

d) o programa principal segue em 
anexo (figura 1), com o nome de "SÉ¬ 
RIE". 

José Rosa da Fonseca 
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NOTA DA REDAÇÃO I 


Terceira Lei de Murphy 

"Em qualquer conjunto de dados , 
os erros estão contidos naqueles nú¬ 
meros que são obviamente corretos e 
isentos de qualquer necessidade de 
conferência". 

Corolário 1 

"Ninguém a quem você pedir au¬ 
xílio verá o erro". 

Corolário 2 

"Qualquer intrometido inoportuno 
que aparecer e bater com os olhos nos 
dados, vai encontrar o erro imediata¬ 
mente". 


NOTA DA REDAÇÃO II 


O Quebra-Cabeça da Microhobby 
n? 8 continha, na verdade, dois quebra- 
cabeças. O primeiro era o que nós pro- 
Dusemos conscientemente. O segundo 


involuntariamente, a partir de erros de 
impressão que escaparam por entre 
nossas muitas revisões. 

O trecho incorreto era o do segun¬ 
do parágrafo da segunda coluna, na 
página 34, onde estava escrito: 

"Por exemplo: se você começar 
com um macho e uma fêmea, na dé¬ 
cima ninhada, terá 377 coelhos e na 
décima quinta, terá 418 coelhos". 

O correto teria sido: 

"Por exemplo: se você começar 
com um macho e uma fêmea, na dé¬ 
cima primeira ninhada, terá 377 coe¬ 
lhos e na décima sexta, terá 4181 coe¬ 
lhos". 

Apesar do erro, José Rosa da 
Fonseca conseguiu solucionar os que¬ 
bra-cabeças (o que propusemos cons¬ 
cientemente e o involuntário). Aqui es¬ 
tá sua solução que devido as circuns¬ 
tâncias desfavoráveis, não se encon¬ 
tra corretamente justificada. Não é ne¬ 
cessário supor que os coelhos mor¬ 
rem!). Recebemos também, uma so¬ 
lução correta do Antonio Cesar Lettieri 
(figura 3). 














1 REM s: SERIE” 

2 REM JOSE R. FQNSECR/S4 
5 CLS 

10 LET R=2 
15 LET 5=3 
20 GOSUB 100 

25 PRINT RT 18,0; :: DIGITE 0 NUM 
ERG DR NINHfiDR CU-JO" ; RT 19,5 :! UR 
LüR E DE5Eüf\DÜ s: 

30 INPUT N 
35 CLS 
4-0 FR ST 

45 FOR 1=1 TO N 
50 LET D=R+B 
55 LET R =5 
60 LET 5=D 


55 NEXT I 
70 SLQU 
75 GOSUB 100 

30 RR INT RT S , O ; ” NR :! ; RT 3,4, N : 
RT 3,7; ; “R. NINhRDR hHUERR ,! \ RT 1 
0,7; D ; RT 10.. 13 ; “COELHOS” 


35 STOP 

100 PR INT RT 2 : 0 


SE 


C! 


105 RETURN 


DBS: PARA OBTER fí RESPOSTA 

PRETENDIDA OR10INRLMENTE 
SUBSTITUA AS LINHAS 10 E 
15 POR; 


10 L5T A=1 
15 LET B=2 


Figura 1 


10 REM CRIRCRO DE COELHOS 
20 SCROLL 

30 PRINT "GUANTA5 NINHADAS?" 

40 SCROLl. 

50 INPUT PARA 

60 PRINT "0K PARA; “ NINHADA 

5 ! ' 

70 SCROLl 
30 LET R =2 
90 LET 5=3 
100 FOR 1=1 TO PRRR 
110 LET C=R+5 

120 PRINT ”NIHRDR n* ” ; I; ”; 0 
” COELHOS :: 

130 SCROLL 
140 LET R =5 
150 LET 5=0 
150 NEXT I 


0 5S: P RRR 0 5TER R RES P0 5TR 
PRETENDIDR CRIOINRLMENTE 
SÜ5STITUR RS LINHRS 30 E 
90 POR: 

30 LET R = 1 
90 LET 5=2 


Figura 3 


OS 

3; 


D 01 
“DR 


Q . F : 
; RT' 
Oü 
16 : 


"CONFIRME 05 D 
13 - 0: "NUMEROS" 

£ N ) " 

; A;AT 16,10;B 


THfcN GOTO 3 
THEN GOTO 12 


1 REM "NOVSfcR” _ 

2 REM J0SEH.*- 0NSEUH / 

3 CLS 

4 GOSUB 100 

5 PRINT AT 5,0:"DIGaTE 
S PRIMEIROS NUMEhOS";hT 
SERIE DESEJADA" 

6 INPUT P 

7 LET A=P 
6 INPUT 5 
S LET B=S 

10 PRINT AT 
015 PRIMEIROS' 

;AT 13.10:" (S) 

11 PRINT AT 

12 INPUT Ni 

13 Ir NÍ="N” 

14 IF NÍ : > " S 

15 CLS 

25 PRINT AT 16.O:"DIGITE 0 NUM 
ERO DA NINHADA CUJO"; AT 19,5; "UA: 
LOR E DESEJADO" 

30 INPUT N .. 

CLS 
FAST 

FOR 1=1 TO N 
LET D =A+B 
LET A =B 
LET B =D 
NEXT I 
SLOU 

GOSUB 100 

PRINT AT 8,0 "NA";AT 6,4,N, 
A . NINHADA H AU ER A " AT 1 
AT 10 13 ; "COlLHOS" 

STOP 

.PkInt Ai 2:0 



105 RETURN 


Figura 2 


CENTRO 

PAULISTA DE 
INFORMÁTICA 


Curso de Basic 

programação’ 


tsPiS 


p 


Equipamento 
CP-500 Pro/ógica 


Horários: 
Manhã - Tarde - Noite 
Cursos aos Sábados 


"0 mais moderno curso de BASIC 
de São Paulo " 

Instalações e material 
didático de alto nível 

Antes de optar por um curso venha conhecer 
nossas instalações e operar nossos 
microcomputadores, sem compromisso. 

Rua Humaitá, 349 — Sobreloja Cj. A 
Esquina c/ Av. Brig. Luiz Antônio 
Altura do n? 1.000 — Fone: 35-4511 
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CURSO DE EOllOE) TK 


aula12 



O gravador K-7 


Você deve ter notado como 
não é muito prático ter que digitar 
um programa “grande", especial¬ 
mente quando isto já foi feito diver¬ 
sas vezes . . . Felizmente o TK pos¬ 
sibilita a gravação de programas em 
fita K-7 comum para posterior recu¬ 
peração. Para colocar um programa 
no gravador, utiliza-se a Key-word 
SAVE (letra S), dando-se um nome 
ao programa (o qual deve ser colo¬ 
cado entre aspas). Suponha que te¬ 
nhamos um programa chamado 
CHOCOLATE. Conecte então a saí¬ 
da MIC do seu TK à entrada MIC 
do seu gravador, ajuste o volume 
para aproximadamente 70 por cento 
do nível máximo e, se tiver controle 
de tonalidade, coloque-o no mais 
agudo possível. A seguir pressione 
as teclas do gravador para gravar e 
digite o seguinte comando direto: 

SflUE ”CHOCOLATE” 

e NEW UNE. A tela ficará "es¬ 
quisita" por alguns instantes; quan¬ 
do ela voltar ao "normal", a grava¬ 
ção está terminada. É recomendável 
que, por segurança, você grave um 
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mesmo programa diversas vezes na 
fita. 

Para recuperar o programa da 
fita K-7 a operação também é sim¬ 
ples. 

Suponha que você tenha real¬ 
mente gravado um programa cha¬ 
mado CHOCOLATE. Digite NEW 
para limpar a memória, volte a fita 
e conecte a entrada EAR do seu TK 
à saída EAR do seu gravador e, com 
os controles de volume e tonalidade 
idênticos aos da operação de SAVE, 
coloque o seu gravador para "to¬ 
car", após digitar o seguinte co¬ 
mando direto: 


LüfiD "CHOCOLATE” 


e NEW LINE (o LOAD está na 
tecla J). Se após a tela "esquisita" 
aparecer a mensagem 0/0, você 
conseguiu recuperar o programa; 
caso contrário, repita a operação. 

Aqui vai uma dica: experimente 
digitar o seguinte: 


10 PRINT "LOVE IS THE RN3UER" 
20 GOTO 10 
30 SRUE “LOUl" 

4-0 RUN 


Pierluigi Piazzi e Rávio Rossini 

Prepare o gravador para um 
SAVE e digite o seguinte comando 
direto: 

GOTO 30 

O programa será armazenado 
na fita . . . mas, ao carregá-lo de 
volta, ele começa a sua execução 
sem ser necessário digitar RUN e 
NEW LINE; experimente então vol¬ 
tar a fita e fazer: 

LOfiD "LOUE” 


PEEK, POKE e USR: Interfaces 
do BASIC com a Linguagem 
de Máquina 


Nesta altura do curso, você po¬ 
de olhar para o teclado do TK e 
verificar que tudo já foi explicado, 
com exceção de uma Key-word e 
duas funções: POKE (tecla 0), PEEK 
(tecla 0) e USR (tecla L). Para po¬ 
der dar uma noção do que elas sig¬ 
nificam, é necessário primeiro ter 
uma idéia do que é Linguagem de 
Máquina, conceito de micropro¬ 
cessador e bites de memória. Para 
tanto, sugerimos a leitura da aula 2 
do curso de Assembly publicado na 
revista número 3. Baseados nesses 






























conceitos, vamos então explicar re¬ 
sumidamente estes últimos coman¬ 
dos do BASIC. 

A Key-word POKE permite co¬ 
locar um número diretamente numa 
posição qualquer de memória. Na¬ 
turalmente, este número deve estar 
compreendido entre 0 e 255 e a po- * 
sição de memória entre 0 e 65535. 
Entretanto, as posições de 0 a 16383 
são ocupadas por memória ROM, 
que é inalterável, ou por espaços 
vazios. Assim, um POKE nessas 
memórias não produz efeito algum. 

A título de exemplo, faremos dois 
pequenos truques usando o POKE; 
pelo "mapa" de memória do TK 
(veja revista número 4) vimos que os 
programas em BASIC começam 
sempre na memória 16509; sabe-se 
que, normalmente, não é possível 
em BASIC ter a linha 01. Mas com 
POKE podemos consegui-la. De fa¬ 
to, experimente digitar: 


1 REM PIAZZI-R055INI 

2 PRINT "RLL YOU NEED IS LÜ'J 
E" 

3 RUN 


A seguir, faça o comando dire¬ 
to: 

POKE 16510,0 


Agora, faça um LIST e veja o 
que ocorreu com a linha 1! Tente 
retirá-la do programa e você verá 
que não será possível, pois o BASIC 
não está "acostumado" a usar li¬ 
nhas 0 . . . Qual a vantagem disto? 
Ora, você pode fazer um programa, 
colocar a linha 0 com seu nome e 
ninguém poderá retirá-lo. Pode sur¬ 
gir agora a seguinte dúvida: se os 
programas começam na memória 
16509, por que o POKE é feito na 
memória 16510? A explicação é sim¬ 
ples: em BASIC, podemos ter linhas 
com número maior do que 255; 
sendo assim, dois bytes são reser¬ 
vados para armazenar o número da 
linha (no caso teremos as memórias 
16509 e 16510, ambas com o núme¬ 
ro zero; experimente modificar a 
memória 16509 usando POKE . . .). 
No manual do TK, você poderá en¬ 
contrar maiores detalhes sobre co¬ 
mo cada linha e cada variável é ar¬ 
mazenada na memória. 


0 segundo truque que iremos 
apresentar possibilita a utilização 
das linhas 22 e 23 da tela para efei¬ 
tos de PRINT ou PRINT AT. Na 
memória 16418'está armazenado 
um número (inicialmente pelo pro¬ 
grama interpretador) que diz quan¬ 
tas linhas são reservadas para a re¬ 
gião de edição. Normalmente, essa 
memória contém o número 2. Basta 
então alterá-la para 0; repare: 


1 POKE 164-13,0 

2 PRINT PT 22.5;*’ LOUE IS" 

3 PRINT PT 23,5;“ THE PNSUER" 


No entanto, este truque tem 
uma pequena limitação: não possi¬ 
bilita a utilização da Key-word IN- 
PUT. Assim, se por acaso você for 
usá-la, "corrija" antes a memória 
16418 com a instrução: 

POKE 16416,2 

O que acontece se colocarmos 
nesta memória um número maior 
do que 2? (veja/ia revista número 2, 
página 24. 

Vamos agora dar uma olhada 
na função PEEK; ela fornece comío- 
saída o conteúdo de uma determi¬ 
nada memória (naturalmente entre 


0 e 65535). Assim, se ao ligar o 
computador você fizer: 

PRINT PEEK 16418 

O computador mostrará o nú¬ 
mero 2 na tela, pois, inicialmente 
duas linhas são reservadas para edi¬ 
ção. Se o seu programa tiver uma 
linha 1, o que você espera obter 
com um PEEK 16510? E com um 
PEEK 16509? 

Note que você pode inclusive, 
fazer PEEK na memória ROM. De 
fato, para obter o conteúdo da ROM 
na tela basta fazer: 

1015LOU 

20 FOR 1=0 Tü 163S3 
30 5CRDLL 
40 PRINT PEEK I 
50 NEXT I 

Como exemplo da função 
PEEK vamos apresentar um peque¬ 
no programa que renumera as linhas 
de um dado programa em BASIC, 
sem alterar entretanto os GOTOs ou 
GOSUBs (isto também seria possí¬ 
vel, mas o programa é bem mais 
complexo). A explicação do funcio¬ 
namento desse programa é razoa¬ 
velmente complicada e foge dos 
objetivos desse curso. O programa 
é aqui apresentado apenas para dar 
uma idéia do "potencial" da função 
PEEK. 


9000 STGP 
9005 REM 
9010 FRST 
9015 PRINT 
IRL *' 

9020 INPUT 
9025 PRINT 
9030 PRINT 

9035 INPUT 
9040 PRINT 
9045 PRINT 
INHRS ?** 

9050 INPUT 

9055 PRINT 

9056 CLS 

9057 LET IM=16503 

9060 LET NX=PEEK CIM+1)*256+PEEK 
ÍIM+2) 

9O70 IF NX =9000 THEN GOTO 9110 
9075 POKE l IM + 1) ,INT CNLI/256) 
9030 POKE ÍIM+2.V ,NLI-256*INT ÍNL 
1/256) 

9035 LET NLI=NLI+DTL 
9090 LET IM=IM+5 

9095 IF PEEK IM=113 THEN GOTO 90 
60 

9100 LET IM =IM +1 
9105 GOTO 9095 
9110 LIST 


"NUMERO DR LINHR IN IC 

NIR 

NIR 

"NOUR LINHR INICIRL ? 

NLI 
NL I 

"INTERURLO ENTRE RS L 

DTL 

DTL 
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Coloque seu programa antes da 
linha 9000 e forneça ao RENUM- 
BER a linha inicial de seu programa, 
a nova linha inicial e a distância que 
você deseja entre as linhas. Este 
programa é muito útil quando não 
há mais "espaço" entre linhas para 
colocar novas instruções ou para 
tornar as listagens mais "elegan¬ 
tes". 

Para finalizar este curso, va¬ 
mos dar uma idéia sobre a função 
USR. Ela seria como um GOSUB 
que em vez de "ir" para uma li¬ 
nha d eprograma, vai direto para 
uma posição de memória executar 
uma sub-rotina escrita em Lingua¬ 
gem de Máquina. Apenas pãra dar 
uma demonstração da potenciali¬ 
dade da Linguagem de Máquina, 
experimente o seguinte programa 
que "enche" a tela com um deter¬ 
minado caráctere: 


1 REM YUX/X 

2 POKE 16516,215 

3 POKE 16513,253 
4- LET L=USR 16514- 


Os caracteres na linha REM sig¬ 
nifica um pequeno programa em 
Linguagem de Máquina; o caractere 
que é colocado na tela é o segundo 
caractere da linha REM. Experimen¬ 
te modificá-lo . . . Compare a velo¬ 
cidade deste programa (mesmo em 
SLOW!) com o seguinte programa 
em BASIC: 

3 PRINT "LI" 

4- GOTO 3 

Poderia surgir agora a seguinte 
pergunta: existe alguma vantagem 
em se programar em Linguagem de 
Máquina? A resposta é afirmativa: 
com ela, os programas são muito 
mais rápidos e podemos ter uma 
visualização e controle maior do sis¬ 
tema. Em contrapartida, suas ins¬ 
truções são mais simples e limitadas 
e exigem um cuidado maior na hora 
da programação. 

Não nos aprofundaremos mais, 
neste curso, na Linguagem de Má¬ 
quina. Estas idéias foram aqui apre¬ 
sentadas apenas para tentar dar 
uma noção do que é essa lingua¬ 
gem, com o intuito de tentar escla¬ 


recer os conceitos que apresentare¬ 
mos a seguir. Note entretanto, que 
um estudo detalhado da Linguagem 
de Máquina é relativamente com¬ 
plexo e o pequeno resumo que apre¬ 
sentamos aqui está longe de mos¬ 
trar toda a sua potencialidade. Caso 
você tenha se entusiasmado pela 
velocidade e magia da Linguagem 
de Máquina, sugerimos a leitura do 
curso de Assembly publicado nesta 
revista a partir do número 2 ou en¬ 
tão, para um estudo mais profundo, 
o seguinte livro: 

"INTRODUÇÃO À LINGUA¬ 
GEM DE MÁQUINA PARA O TK - 
ASSEMBLY Z80" 

VOL. I de Flávio Rossini, ED. 
MODERNA - MICROMEGA 

Caso você queira se aprofundar 
no BASIC, sugerimos a leitura e es¬ 
tudo dos vários programas publica¬ 
dos nesta revista ou ainda os se¬ 
guintes livros: 

"CURSO DE JOGOS" de Fábio 
Rendelucci 

"Coleção de programas vol. I" 
de Carlos E. R. Salvato. 

"Coleção de programas vol. II" 
de Tanios Hamzo. 


COMO COLABORAR 



A Revista MICROHOBBY foi criada 
para servir de intercâmbio entre os leito¬ 
res que participam do mágico mundo da 
computação. 

A característica real mente inovadora 
do computador pessoal, está em transfor¬ 
mar cada consumidor num criador. Apro¬ 
veite sua criatividade e envie suas colabo¬ 
rações recebendo remuneração a título de 
DIREITO AUTORAL. 

A maneira ideal de nos enviar o mate¬ 
rial a ser publicado obedece às seguintes 
normas: 


1. Nunca esqueça de colocar o nome 
completo, telefone, endereço e número 
de sua assinatura em todo material envia¬ 
da a nós, sejam listagens de impressora, fi¬ 
tas, envelope, carta ou qualquer outro 
material. 

2. Envie a listagem de programa datilo¬ 
grafada ou, melhor ainda, tirada na im¬ 
pressora do computador. 

3. Coloque sempre uma linha REM com 
o nome do autor e o título do programa. 

4. Envie uma fita com o programa grava¬ 
do algumas vezes (se possível em gravado¬ 
res diferentes). 

5. Na fita, gravar com microfone (em viva 
voz), algumas instruções úteis: 

nome completo e endereço do remetente. 

6. Quando o programa for adaptado e/ou 
traduzido de outra revista, citar a fonte 
(autor original, data de publicação, nome 
da revista e todos os detalhes que houver 
referente à publicação). 


7. Anexar ao material, uma carta autori¬ 
zando a publicação por parte da revista e 
assumindo a responsabilidade pela autoria 
do material e/ou adaptações. Nesta carta, 
para agilizar a remuneração, podem cons¬ 
tar os dados da conta corrente onde da¬ 
remos o depósito correspondente aos di¬ 
reitos autorais. 

8. O material não utilizado não será de¬ 
volvido, ficando a critério da redação a 
decisão final sobre sua publicação. 

9. O material deve ser enviado para. 


MICROMEGA PUBLICAÇÕES E 
MATERIAL DIDÁTICO 
SEÇÃO PROGRAMAS DO LEITOR 
Cx. Postal 54096 
CEP 01296 


O 
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CURSO DE ASSEMBLY 


Instruções lógicas e 
Operações com bits 

As instruções lógicas são instru¬ 
ções que mexem diretamente com os 
bits. Vamos inicialmente dar uma pe¬ 
quena explicação das principais opera¬ 
ções que são AND, OR, XOR e NOT. 
Para isto, basta associar aos bits a 
"teoria dos conjuntos" da seguinte 
maneira: ao número 1 associamos o 
conjunto Universo e ao número 0 o 
conjunto vazio; a operação AND seria 
a operação de intersecção de conjun¬ 
tos, a operação OR corresponde à 
união e a função NOT ao complemento 
(Figura 1). 


Na Linguagem de Máquina, exis¬ 
tem instruções que fazem estas opera¬ 
ções bit a bit, sempre tendo o acumu¬ 
lador como sede dos resultados. 

A função AND só resulta 1 se os 2 
bits correspondentes forem 1, caso 
contrário resulta 0; a função OR dá re¬ 
sultado 0 apenas se os dois bits corres¬ 
pondentes forem 0, senão ela fornece 
o número 1 e a função NOT tem ape¬ 
nas UM operando e coloca 0 onde ha¬ 
via 1 e 1 onde havia 0. Quanto à fun¬ 
ção XOR, ela fornece o resultado 1 so¬ 
mente se os bits correspondentes fo¬ 
rem diferentes. 

Podemos ter as seguintes instru¬ 
ções (figura 2): 


1 AND 1 = 1 

1OR1= 1 

NOT 0 = 1 


1 AND 0 = 0 AND 1 =0 

1 OR 0 = 0 OR 1 = 1 

NOT 1 =0 


0AND 0 = 0 

0 OR 0 = 0 


Fifl.1 


INSTRUÇÃO 

CÓDIGO 

INSTRUÇÃO 

CÓDIGO 

INSTRUÇÃO 

CÓDIGO 

ANDA 

'A7' 

ORA 

B7' 

XOR A 

'AF 

AND B 

A0' 

ORB 

W 

XOR B 

A8' 

AND C 

'AL' 

ORC 

BL' 

XOR C 

A9' 

AND D 

A2' 

ORD 

B2' 

XOR D 

'AA' 

ANDE 

A3' 

ORE 

B3' 

XOR E 

'AB' 

AND H 

A4' 

OR H 

B4' 

XOR H 

'AC' 

AND L 

A5' 

ORL 

B5' 

XOR L 

AD' 


Fig. 2 


aula 11 


Flavio Rossini 

AND registro: realiza a operação 
AND do registro com o acumulador 
colocando o resultado no acumulador. 

OR registro: idem com relação à 
operação OR. 

XOR registro: idem com relação à 
operação XOR. 

Estas três instruções afetam o flag 
do CARRY (deixando-os em 0 (zero) e 
todos os outros flags vistos até aqui; 
assim, uma maneira de "zerar" o acu¬ 
mulador e simultaneamente "zerar" o 
flag de CARRY é usando a instrução 
XOR A. 

0 único registro, como você deve 
estar esperando, que permite a opera¬ 
ção NOT é o acumulador, com a se¬ 
guinte instrução: 

CPL (abreviação de COMPLE- 
MENT) (Código '2F') 
ela NÃO altera o flag de CARRY e nem 
os demais FLAGS vistos até o presen¬ 
te momento. 

Vamos fazer alguns exemplos pa¬ 
ra fixar melhor o funcionamento des¬ 
tas instruções (figuras 3, 4, e 5). 

Execute estes programas modifi¬ 
cando eventualmente os dados para fi¬ 
xar bem o funcionamento das opera¬ 
ções lógicas. 
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Temos ainda as instruções que fa¬ 
zem essas operações utilizando o con¬ 
teúdo da memória (endereçada por 
HL) ou com um dado de 8 bits direta¬ 
mente (figura 6). 

Como as instruções AND e OR 
afetam todos os FLAGS, elas podem 
ser utilizadas para decidir se um dado 
número no acumulador é positivo, ne¬ 
gativo ou zero quando queremos efe¬ 
tuar algum "salte", sem necessitar uti¬ 
lizar a instrução CP. Por exemplo, su¬ 
ponha que em dado ponto do progra¬ 
ma você deseja "saltar" para a memó¬ 
ria 30050 se o conteúdo do registro B 
for positivo (figura 7). 


Instruções que afetam os bits 


Vamos agora aprender instruções 
que modificam INDIVIDUALMENTE 
os valores dos bits dos registros ou 
conteúdo da memória indicada por HL. 
Talvez no momento você não veja mui¬ 
ta utilidade para estas instruções, mas, 
se você se aprofundar na Linguagem 
de Máquina verá como elas poderão 
ajudá-lo. Assim, temos as instruções 
de SET para colocar dado bit em 1 e 
RES para colocar dado bit em 0. Devi¬ 
do ao grande número de combinações 
possíveis vamos montar uma tabela (fi¬ 
gura 8 Ae B). 


AND 




38000 

LD 

A,'AF' 

'3EAF' 

30003 

LD 

B,'5A' 

065A' 

OWIrf 

AND 

B 

A0' ; (ou AND A,B) 

38005 

LD 

C,A 

'4F' 

30006 

LD 

B,0 

'OCAA' 

oooop 

JVWO 

RET 


'C9' 

temos 

A = 

"10101111" 

resultando A = "0000 1010" = '0A' = 10 


B = 

"01011010" 

Fig. 3 


OR 






30000 

LD 

A, '82' 

'3E82' 



30002 

LD 

E, '27' 

'1E27' 



30804 

OR 

E 

B3' 

; (ou OR A,E) 


30005 

LD 

C,A 

'4F' 



30806 

LD 

B,0 

'OCAfl' 

WDW 



30008 

RET 


C9' 



temos 

A = 

"10000010 "resultando A = 

"10100111" = 

A7' = 167 



E = 

'00100111" 



Fig. 4 


NOT 






30000 

LD 

A,'F0' 

'3EF0' 



38002 

CPL 


'2F' 

; (ou CPL A) 


30003 

LD 

C,A 

'4F' 



30004 

XOR A 


AF' 



30005 

LD 

B,A 

'47' 



30006 

RET 


C9' 



temos 

A = ' 

'11110000" resultando A = 

"00001111" = 

"OF' = 15 

Fig. 5 


Observe na tabela da figura 8A e 
8B que os bits de cada registro (que 
são 8) são contados de 0 a 7. Assim, 
por exemplo, se você quiser colocar 
em 1 o bit 5 do registro E: 

SET 5,E 'CBEB' 
para colocar em 0 o bit 6 da memória 
indicada por HL: 

RES 6, (HL) 'CBB6' 


INSTRUÇÃO 

CÓDIGO 



AND 

(HL) 

A6' 

; (ou AND A, (HL)) 


OR 

(HL) 

B6' 

; (ou OR A, (HL)) 


XOR 

(HL) 

AE' 

; (ou XOR A, (HL)) 


AND 

dado 

'E6' + Ibyte PI o dado 

; (ou ND A, dado) 


OR 

dado 

F6' + Ibyte PI o dado 

; (ou OR A, dado) 


XOR 

dado 

'EE' + Ibyte PI o dado 

; (ou XOR A, dado) 

Fig. 6 


Façamos um exemplo (figura 9): 
vamos chamar uma sub-rotina na me¬ 
mória 30000, (teremos então BC = 
'7530' = "011101010010000") e vamos 
fazer B = W e C = TF' setando e re- 
setando os bits necessários, tendo en¬ 
tão como saída (ao apertar XF no HE- 
XAMEM) o número 255 ('00FF'). 

Caso queiramos "testar" um dado 
bit de um registro ou memória endere¬ 
çada por HL para saber se ele é zero ou 
um, podemos usar a instrução Bit que 
coloca o complemento do dado bit no 
flag Z do registro F. Assim, por exem¬ 
plo, se você quiser saltar para um dado 
endereço (ou chamar uma sub-rotina) 
baseado na CONDIÇÃO que o bit 5 do 
registro E seja zero (0) basta fazer: 
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LD 


A,B 


OR 


A 

; não altera o acumulador, apenas os FLAGS 
(OR A,A) 

JP 

P 

38050 

Fig. 7 


SET 


Reg 

Bit\^ 

A 

B 

C 

D 

E 

H 

L 

(HL) 

0 

CBC7' 

'CBC0' 

CBCV 

CBC2' 

CBC3' 

CBC4' 

CBC5 

CBC6' 

1 

CBCF' 

CBC8 

CBC9' 

CBCA' 

CBCB' 

CBCC' 

CBCD' 

CBCE' 

2 

CBD7' 

'CBD0' 

CBD1' 

CBD2' 

CBD3' 

CBD4' 

CBD5' 

CBD6' 

3 

CBDF' 

'CBD8' 

CBD9' 

CBDA' 

CBDB' 

CBDC' 

CBDD 

CBDE' 

4 

CBE7' 

CBE0' 

CBE1' 

CBE2' 

CBE3' 

CBE4' 

CBE5' 

CBE6' 

5 

CBEF' 

CBE8' 

CBE9' 

CBEA' 

CBEB' 

CBEC' 

CBED' 

CBEE' 

6 

CBF7' 

CBF0' 

CBFV 

'CBF2' 

CBF3' 

CBF4' 

CBF5' 

CBF6' 

7 

CBFF' 

CBF8' 

CBF9' 

CBFA' 

CBFB' 

CBFC' 

CBFD' 

CBFE' 


Fig. 8A 




















BIT 5,E ; coloca o complemento do 

bit 5 de E no flag Z 

JP Z endereço (CALL Z endereço) 

(se a condição for que o bit seja 1, bas¬ 
ta fazer JP NZ) 

Se o bit 5 fosse 1, o complemen¬ 
to é 0 que é colocado no flag Z; desse 
modo, a condição JP Z testa se a flag Z 
está em 1 o que não ocorre e o salto 
não será efetuado. Em caso contrário 
(bit 5 em zero) o salto é efetuado. 


RES 


Reg 

Bit 

A 

B 

C 

D 

E 

H 

L 

(HL) 

0 

'CB87' 

'CB80' 

'CB81' 

'CB82' 

'CB83' 

'CB84' 

CB85 

CB86' 

1 

CB3F' 

'CB88' 

CB89' 

CB8A' 

CB8B' 

CB8C' 

CB8D' 

CB8E' 

2 

'CB87' 

'CB90' 

'CB91' 

'CB92' 

'CB93' 

'CB94' 

CB95 

CB96' 

3 

'CB9F' 

'CB98' 

'0899' 

'CB9A' 

CB9B' 

CB9C' 

CB9D' 

'CB9E' 

4 

'CBA7' 

'CBA0' 

'CBA1' 

CBA2' 

CBA3' 

CBA4' 

CBA5' 

CBA6' 

5 

CBAF' 

CBA8' 

CBA9' 

CBAA' 

CBAB' 

'CBAC' 

CBAD' 

CBAE' 

6 

CBB7' 

'CBB0' 

CBB1' 

CBB2 

CBB3' 

CBB4' 

'CBB5' 

CBB6' 

7 

'CBBF' 

'CBB8' 

CBB9' 

CBBA' 

CBBB' 

'CBBC' 

CBBD' 

CBBE' 


Fig. 8B 


Temos também instruções para 
setar o bit de CARRY e para comple¬ 
mentá-lo, porém, note que não há uma 
instrução para resetar o CARRY (figura 
11 ). 


As instruções SET e RES não afe¬ 
tam nenhuma FLAG; as instruções BIT 
afetam todas as FLAGS menos o CAR¬ 
RY e as instruções SCF e CCF afetam 
apenas o CARRY. 


Instruções de rotação: 
multiplicação e divisão por 
potências de dois 


Iremos agora ver instruções que 
permitem fazer uma "rotação" dos re¬ 
gistros ou memória indicada por (HL). 

Algumas destas instruções podem 
ser utilizadas para multiplicar ou divi¬ 
dir facilmente algum número por um 
expoente de 2 (2, 4, 8, 16 etc.). 

A primeira delas é a instrução 
RLC: ela desloca todos os bits para a 
esquerda num movimento de "rota¬ 
ção", ou seja, o bit 7 é colocado no bit 
0 e os bits de 0 a 6 são deslocados de 
1 posição para a esquerda; o bit 7 é co¬ 
piado no CARRY; assim, por exemplo, 
se o registro D contiver. 

"10010010e CARRY = 0 
ao efetuar RLC D teremos: 

D = "00100101" CARRY = 1 


RLC 


CARRY 


-►- 



4 



4 















JWW 

RES 

6.B 

CBB0' 

30002 

RES 

5,B 

CBA8' 


RES 

4,B 

CBA0' 

JWW) 

RES 

2.B 

CB90' 

OAAAO 

RES 

0,B 

CB80' 

30010 

SET 

7,C 

'CBF9' 

30012 

SET 

6,C 

CBF1' 

30014 

SET 

3,C 

CBD9' 

30016 

SET 

ZC 

CBDV 

30018 

SET 

1,C 

CBC9' 

30020 

SET 

0,C 

CBC1' 

30022 

RET 


'C9' 


Fig. 9 


Reg 

Bit 

A 

B 

C 

D 

E 

H 

L 

(HL) 

0 

CB47' 

CB40' 

CB41' 

CB42' 

CB43' 

'CB44' 

CB45' 

'CB46' 

1 

CB4F' 

CB48' 

'CB49' 

CB4A' 

'CB4B' 

'CB4C' 

CB4D' 

CB4E' 

2 

'CB57' 

CB50' 

'CB51' 

'CB51' 

CB52' 

'CB53' 

'CB54' 

'CB55' 

3 

'CB5F' 

CB58' 

CB59' 

CB52' 

'CB53' 

'CB54' 

CB55' 

CB56' 

4 

CB57' 

CB60' 

CB6V 

CB62' 

CB63' 

CB64' 

CB65' 

'CB66' 

5 

CB6F' 

'CB68' 

'CB69' 

'CB6A' 

CB6B' 

'CB6C' 

CB6D' 

CB6E' 

6 

CB77' 

'CB70' 

CB71' 

'CB72' 

CB73' 

'CB74' 

'CB75' 

CB76' 

7 

'CB7F' 

'CB78' 

'CB79' 

'CB7A' 

CB7B' 

CB7C' 

CB7D' 

'CB7E' 


Fig. 10 



INSTRUÇÃO 

CÓDIGO 



SCF 

'37' 

(SET CARRY flags) 


CCF 

'3F' 

(complement carry flag) 

Fig. 11 


3O000 

LD 

B,0 

'0600' 

; coloca 0 em B 

30002 

SLA 

C 

'21' 

; multiplica C por dois 

30003 

RET 


C9' 

Fig. 12 


A instrução RRC é análoga, efe¬ 
tuando a rotação para a direita, co¬ 
piando então o bit 0 no CARRY; assim 
se B = "11000011" o CARRY = 1 ao 
efetuar RRC B teremos: 

B = "11100001" CARRY = 1 


RRC 


- 4 - 

i r _. 

i 

, 

CARRY 
















w 

- w 


Temos também a instrução RL 
que executa uma rotação para a es¬ 
querda como se o registro (ou memó¬ 
ria) e o CARRY formassem um único 


oooon 

LD 

B,0 


; coloca 0 em B 


30002 

30003 

SRL 

RET 

C 

'39' 

; divide C por dois 

Fig. 13 


\Reg 

A 

B 

C 

D 

E 

H 

L 

(HL) 

RLC 

CB07' 

CB00' 

CB01' 

CB02' 

CB03 

'CB04' 

'CB05' 

'CB06' 

RRC 

CB0F' 

CB08' 

CB09' 

CB0A' 

CB0B' 

CB0C' 

CB0D' 

'CB0E' 

RL 

CB17' 

CB10' 

CB11' 

CB12' 

CB13' 

'CB14' 

CB15' 

'CB16' 

RR 

CB1F' 

CB18' 

'CB19' 

CB1A' 

CB1B' 

CB1C' 

CB1D' 

'CB1E' 

SLA 

CB27' 

CB20 

CB21' 

CB22' 

CB23' 

CB24' 

CB25 

'CB26' 

SRA 

CB2F' 

CB28' 

CB29' 

CB2A' 

CB2B 

CB2C' 

CB2D' 

'CB2E' 

SRL 

CB3F' 

CB38' 

'CB39' 

CB3A 

CB3B' 

CB3C' 

CB3D' 

'CB3E' 

Fig. 14 
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registro de 9 bits; ou seja, o CARRY é 
introduzido no BIT 0, os BITS de 0 a 6 
são deslocados de uma posição para a 
esquerda e o BIT 7 é colocado no CAR¬ 
RY; assim se C = "01010101" e CAR¬ 
RY = 1, ao efetuar RL C teremos: 

C = "10101011" e CARRY = 0 


w 


CARRY 

ái 

- W- 


V 

















A instrução RR é análoga, fazen¬ 
do uma rotação para a direita; se A = 
"00001111" e CARRY = 0, ao efetuar 
RR A teremos: 

A = "00000111" e CARRY = 1 



Vejamos agora a instrução SLA 
que permite efetuar a multiplicação por 
alguma potência de 2: ela desloca to¬ 
dos os bits para a esquerda e reseta o 
bit 0; o bit 7 é copiado no CARRY. 
Analogamente à base 10, quando mul¬ 
tiplicamos um número por 10, simples¬ 
mente deslocamos todos os algarismos 
para a esquerda e acrescentamos um 
zero no final! Assim ao executar SLA 
estaremos multiplicando o número por 
2, ao executá-la duas vezes sucessivas 
por 4, 3 vezes por 8 e assim sucessiva¬ 
mente . . . Experimente a sub-rotina 
da figura 12 colocada a partir do ende¬ 
reço 30000. 

Ao fazer XF no HEXAMEM, o par 
BC é carregado com 7530'. Fazemos B 
= 0 e SLA C; ora C era: "00110000" 

(= 48) e se torna "01100000" (= 96 = 
48 X 2). Assim obteremos 96 na tela: o 
fato do bit 7 ser colocado no CARRY 
nos permite detectar se houve um "es¬ 
touro", ou seja, resultado maior do 
que 255. 


4 

CARRY 



0 


Por analogia temos a instrução 
SRA que desloca os bits para a direita, 
SEM MODIFICAR o bit 7 e coloca o bit 
0 no CARRY. Note entretanto que o 
fato do BIT 7 permanecer inalterado 
não permite "dividir" números positi¬ 
vos maiores do que 127 (= "01111111), 
mas possibilita também a divisão de 
números negativos ( — 128); entre¬ 

tanto temos a instrução SRL que des¬ 
loca os 8 bits para a direita, copia o bit 
0 no CARRY e reseta o bit 7! com isto 
pode-se fazer a divisão de números po¬ 
sitivos até 255 mas não é possível a di¬ 
visão para números negativos (figura 
13). 

44 MICROHOBB.Y 



CARRY 

* 

(SRA) 


0 


CARRY 

> 

(SRL) 


Ao executar este programa, deve¬ 
mos obter 24 (48 + 2). 

Na figura 14, vemos uma tabela 
com as instruções de rotação. 


Instruções de rotação 


Apenas a título de complementa- 
ção, dê uma olhada na figura 15, onde 
vemos as algumas instruções. 


INSTRUÇÃO 

CÓDIGO 

RLC A 

'07' 

RRCA 

'0F' 

RLA 

'17' 

RRA 

'1F' 

1 r Fig. 15 


Estas instruções produzem no 
acumulador o mesmo efeito que as ins¬ 
truções RLC A, RRC A,RL A e RRA, 
mas afetando apenas o flag de CAR¬ 
RY, sem afetar os demais FLAGS. 
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Exercícios 


1. Usando as instruções vistas 
nesse capítulo, faça uma sub-rotina ca¬ 
paz de dividir o par de registros BC por 
2; a seguir faça um programa que cha¬ 
me 2 vezes esta sub-rotina para dividir 
o conteúdo de BC por 4. 

2. Faça um programa que multi¬ 
plique o registro C por 7 (sem usar so¬ 
mas sucessivas) e detecte se houve um 
"estouro" (testando o CARRY). 

3. Uma boa aproximação para o 
número tt é 201/64. Faça um progra¬ 
ma que, utilizando as sub-rotinas de 
multiplicação por somas sucessivas do 
capítulo anterior e a sub-rotina desen¬ 
volvida no exercício 1 multiplique o 
conteúdo do registro C por ir , deixan¬ 
do o resultado em BC. 

4. Faça um programa que forne¬ 
ça como saída o n? de bits em um de 
um dado registro; primeiramente, SEM 
utilizar instruções de rotação e, a se¬ 
guir, outro programa que as utiliza. 

5. Faça um programa que tire a 
média dos registros B e C (lembre-se 
que B + C pode ser maior que 255); a 
seguir, implemente o programa para 
que ele tire a média dos registros B, C, 
DeE. 

Use as instruções de rotação para 
fazer as divisões. O 
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O Merge para o TK explicado 


Na edição número 10 de nossa revista 
publicamos um utilíssimo programa de 
MERGE para o TK83/85 e seus compatíveis. 
Neste mês, recebemos uma colaboração que 
vem completar nosso artigo anterior. 
Esperemos que este artigo o auxilie na 
compreensão deste importante utilitário. 

Daniel J. R. Nordemann 


Introdução 

0 TK 83 e seus compatíveis oferecem a possibilidade de 
gravar um programa e dados numa fita cassete comum e de 
carregar a memória com um programa com dados já grava¬ 
dos. Mas, até agora, não existe a possibilidade de integrar da 
mesma maneira pacotes de dados já gravados a um programa 
presente na memória, ou de reunir dois programas diferentes 
em um só como faz a instrução MERGE existente em algumas 
máquinas. Não se trata da aquisição de dados, mas somente 
da sua manipulação por vários programas ou da integração de 
um programa a outro, usando apenas um gravador além do 
TK 83. 0 processo a ser descrito não precisa de modificação 
alguma nem de circuito complementar. 

Manipulação dos Dados 

A manipulação dos dados é fácil e não apresenta dificul¬ 
dades como perda de memória ou perda de cursor. 0 que dire¬ 
mos a seguir aplica-se a qualquer dado numérico ou carac¬ 
tere, mas, para facilitar as explicações, trataremos dados sob a 


forma de bytes, sendo a generalização dos dados numéricos 
bastante evidente. 

As mesmas posições disponíveis para programas escri¬ 
tos em hexadecimal podem ser usadas para os dados: dentro 
de um vetor de caracteres do tipo A$; num REM como 1 REM 
. . . cujo primeiro endereço útil é 16514; e acima de RAMTOP, 
após reservar um lugar conveniente abaixando RAMTOP atra¬ 
vés de instruções POKE, por exemplo, a seqüência de instru¬ 
ções POKE 16388, 0 (facultativa) e POKE 16389, 125 reserva 3 
vezes 256 bytes (com extensão 16 k cujo RAMTOP "natural" 
é 32768 = 128*256). Chamar-se-ão 1, 2 e 3, respectivamente, 
os espaços na seqüência de caracteres, no primeiro REM e 
acima de RAMTOP. As transferências são operadas sem difi¬ 
culdades, tal como exemplificado abaixo: 

1->2 FOR J = 1 TO 256 

LET V = 16513 + J 
POKE V, CODE A$ (J) 

NEXTJ 

Lembre-se que as variáveis estão localizadas entre VARS 
e E UNE depois do programa ter rodado: 


TABELA I 


CONTEÚDO DA MEMÓRIA 

Variável de uma letra A 

byte 1 

011. 

64 + CODE "A" 



letra A 


Variável de algumas letras 

byte 1 

101. 

128 + CODE "A" 

ABC 


letra A 



byte 2 

001. 

CODE"B" 



letra B 



byte 3 

101. 

128 + CODE "C" 



letra C 


Vetor numérico A ( ) 

byte 1 

100. 

128 + CODE "A"-32 = 



letra A-20H 

96 + CODE "A" 

Variável de controle de 

byte 1 

111. 

192 + CODE "A" 

"loop" FOR-NEXT A 


letra A 


Seqüência de caracteres A$ 

byte 1 

010. 

64 + CODE "A" - 32 = 



letra A-20H 

32 + CODE "A" 

Vetor de caracteres A$ ( ) 

byte 1 

110. 

192 + CODE "A"-32 = 



letra A-20H 

160 + CODE “A” 
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Endereço de VARS = PEEK 16400 + 256*PEEK 16401 
Endereço de E LINE = PEEK 16404 + 256*PEEK 16405 

0 manual de instrução mostra como são constituídas as 
diferentes variáveis (o que já foi interpretado e verificado expe¬ 
rimentalmente a fim de apresentar a Tabela I, na qual as le¬ 
tras A, B, C são tomadas como exemplos). 

Dispondo destas informações, pode-se escrever um pe¬ 
queno programa de procura de variáveis pelo tipo e pelo no¬ 
me, usando o valor de Z determinado graças à Tabela I (figu¬ 
ra 1). 


3 

LET 9=1 


~7 

LET 2=102 


10 

LET v =REEK 

15 4-0 0 4255 *PEEK 1 

54-01 



20 

FÜR J=0 TO 

1E3 

30 

LET U=U+Ü 


4.0 

IF PEEK w=: 

2 THEN GOTO 30 

50 

NEXT J 


50 

PRIt-rr "NP; D 

P:ChEI :^ 

70 

ST DP 


80 

FOR ü=0 TO 

20 

90 

LET V = U 4 ü 


100 

RRINT Y 

";PEEK Y 

110 

NEXT j 


190 

STOP 



Fig. 1 


A linha 5 seria uma das escolhidas de acordo com a ta¬ 
bela II. 


TABELA II 


Variável 

Linhas: 

Z = 

Variável de uma letra 

5 LET A = 1 

102 

Variável de algumas letras 

5 LET ABC = 1 

166 

Tabela numérica 

5 DIM ACI0) 

134 

Variável de controle de "loop" 

5 FOR A = 1 TO 9 

230 

Seqüência de caracteres 

5 LET AS = "STAR" 

70 

Tabela de caracteres 

5 DIM A$(5,10) 

198 


Até agora não foi esclarecido como um dadò numérico 
preenche as cinco casas de memória, ou seja, os cinco bytes a 
ele atribuídos. No caso dos caracteres, é bem mais fácil, pois 
cada byte representa o código CODE do caractere correspon¬ 
dente. O programa da figura 1 explica, melhor do que qual¬ 
quer fórmula, a correspondência entre os valores numéricos e 
os cinco bytes que eles ocupam na memória. 


5 PRIhiT :: R ?” 

5 INRUT H 
3 FPST 

10 LET U -PEEK 154.00+256+PtiK 1 
54-01 

20 FOR 0=0 TO 1E3 
30 LET y=U + J 

4-0 IF -EE ui = 102 THEN GOTO 55 
50 NEXT J 
55 CL5 
50 SLOU 

70 PRINT : P: = " ; H 
75 PRlt-lT 
30 FOR 0=0 TO 5 
90 LE^ V =UtO 
100 RRINT ; •• *' ; REEK Y 

110 NEXT O 
130 LET R =0 

14.0 IF H THEN LET R=INT (lN R55 
R /Li - 2) 


Os valores Z (na linha 7) foram determinados de acordo 
com a Tabela 1, levando em conta o valor de CODE"A = 38. 
Lembre-se que CODE "B" = 39, CODE "C" = 40 etc. No 
caso das variáveis definidas por mais de um caractere, o pri¬ 
meiro tem de ser uma letra. Se o programa apresenta algu¬ 
mas variáveis cujo nome começa pela mesma letra, a identi¬ 
ficação tem de usar mais letras (ou todas, se quiser), modifi¬ 
cando a linha 40 assim: 


4-0 IF PEEK y=Zl PND PEEK ÍU + I3 
=22 SND PEEK tU+23=23 THEN GOTO 
30 


Fig.3 

com 

Z1 = 128 + CODE "A" (ou primeira letra) 

Z2 = CODE "B" . . . (ou segunda letra) 

Z3 = 128 -l- CODE "C" (ou última letra) 

e somente os códigos da primeira e da última letra são acres¬ 
centados de 128. 

O programa prevê a possibilidade de não achar o ende¬ 
reço do nome da variável, o que pode acontecer caso haja dis¬ 
cordância entre nome, tipo e valor de Z. Se o endereço for 
achado, a seqüência seguinte do programa (linha 80 e seguin¬ 
tes) visualiza a estrutura da variável e permite conferir com as 
informações (até agora pouco usadas) que são fornecidas pe¬ 
lo manual de instrução. Esta estrutura foi lembrada em ter¬ 
mos resumidos. O programa dado acima permite verificar os 
elementos relativos ao nome da variável, ao valor de Z e ao 
dimensionamento. 

Em função do tipo de variável, as seqüências dos bytes 
são as da Tabela III. 

TABELA III 


Variável de uma letra 

Z/valor 5 bytes/ 

Variável de algumas letras 

Z1 172 / 73 / valor de 5 bytes 

Vetor numérico 

Z/comprimento em 2 bytes: 

elementos + 2 por dimensão 
+ 1 para número de dimen¬ 
sões/primeira dimensão 2 by¬ 
tes/ . . ./ . . ./última dimen¬ 
são 2 bytes/valores 5 bytes 
cada/ 

Variável de controle de 
"loop" 

Z/valor 5 bytes/limite 5 bytes/ 
step 5 bytes/linha FOR-NEXT 
+ 1: 2 bytes/ 

Seqüência de caracteres 

Z/número de car. 2 bytes/con¬ 

teúdo 1 byte por car./ 

Vetor de caracteres 

Z/comprimento em 2 bytes: 

elementos + 2 por dimensão 
+ 1 para número de dimen¬ 
sões/primeira dimensão 2 by¬ 
tes/ . . ./última dimensão 2 
bytes/conteúdo 1 byte por 
car./ 


150 

LET N 

=123*(«BS fi/2**P-i) 

150 

IF H ' 

THEN 

LET P =P + 129 

170 

LET O 

= 123* ifl< =0)*INT N 

130 

LET N 

=N-INT N 

190 

LET R 

= INT 

(255*N 3 

200 

LET N 

=255*N-R: 

210 

LET 5 

= INT 

(255*N3 

220 

LET T 

= INT 

C255*N-53 

230 

PRINT 

"P = 

”; P 

24-0 

RR INT 

Q = 

"rQ 

250 

RRINT 

"R = 

"; R 

250 

PRINT 

1 ' 3 = 

"; 5 

270 

PR INT 

"T = 

T 

290 

STÜR 




Fig. 2 
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Quando o comprimento, ou uma dimensão, é colocado 
em dois bytes, o primeiro é o menos significativo e o segundo 
o mais significativo. 

O cálculo dos bytes P, Q, R, S e T esclarece como é ar¬ 
mazenando um dado numérico em cinco bytes de memória. P 
representa o número de potências de 2, ou seja, a caracterís¬ 
tica do número expresso nos logaritmos à base 2. A parte 
fracionária constitui a mantissa e é distribuída nos quatro by¬ 
tes seguintes, usando os sete bits menos significativos do 
primeiro byte e nos três bytes restantes R, S e T. O bit mais 
significativo de Q é atribuído ao sinal de A; com 1 para A< 0 
e 0 para A ^ 0. A fórmula da linha 150 entende-se mais facil¬ 
mente quando é escrita da seguinte maneira: 

N = 128* (ABS A — 2**P) / (2**(P +1) — 2**P) 

que se simplifica na fórmula da linha 150 após dividir numera¬ 
dor e denominador por 2**P. As condições sobre AOO nas 
linhas 140 e 160 justificam-se para não haver problema com o 
logaritmo e para obter 0 para P, Q, R, S e T quando A = 0. 

Estas explicações podem não parecer bastante claras, 
mas as fórmulas que dão P, Q, R, S e T contêm as informa¬ 
ções necessárias ao entendimento da estrutura dos dados nu¬ 
méricos na memória, sob forma de cinco bytes. No outro sen¬ 
tido, a fórmula seguinte, escrita também em termos de BA¬ 
SIC, mostra que se pode passar dos cinco bytes ao dado nu¬ 
mérico no sistema decimal: 


275 LET B=íl-2*iO>123))**2**CP- 
129)} * (1+(Q-123*iS >128) ) /123+R/3 
2763+S /8383683+7* /3383533 /256) 

230 PRihrr 

235 PRIHT '*5= " ; 5 


Ftfl.4 


O termo 1 — 2*(Q > 128), que fornece o sinal de B, foi 
posto no lugar de (— 1)**(Q > 128), uma vez que o TK83/85 
se recusa a dar as potências de números negativos. 

Agora, com o conhecimento dos endereços e da estru¬ 
tura das variáveis numéricas e das seqüências de caracteres, 
existe a possibilidade de "POKEar" qualquer coisa nelas e 
transferir dados pelas instruções LD em hexadecimal. Uma re¬ 
comendação importante ainda: a cada modificação de progra¬ 
ma esses endereços vão sendo alterados; os dados não são 
perdidos, porém há que procurá-los no lugar certo, usando o 
programa que foi dado acima. 

O próximo artigo mostrará como integrar um programa 
(gravado) a outro, já na memória da máquina, e como tratar 
dados quaisquer por um programa ao qual eles não estavam 
associados. 


r 
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OS OITENTA 



PROGRAMA- PADRE 

ou "Casando impedâncias por computador" 

Tanios Hamzo 


No último número de MICRO- 
HOBBY, apresentamos um programa 
capaz de projetar amplificadores. Espe¬ 
rando não estar insistindo na mesma 
tecla, apresentamos este mês um ou¬ 
tro programinha simples e muito útil: 
0 PROGRAMA-PADRE, destinado a 
calcular rápida e precisamente uma 
rede resistiva do tipo "L", fornecendo 
o valor dos resistores, a perda de ten¬ 
são, em deciBéis e fornecendo o es¬ 
quema elétrico, que é desenhado na 
tela e pode ser reproduzido em papel 
via impressora. 

Ainda dentro da filosofia T.A.C. 
(Trabalho Auxiliado por Computador) 
— ou, se preferir: C.A.D. (Computer- 
Aided Designs), este programa é uma 
verdadeira M.N.R. (Mão-Na-Roda) pa¬ 
ra estudantes, engenheiros, técnicos e 
eletrocuriosos em geral. 

Embora ciente de ser esta uma re¬ 
vista dedicada a computadores do tipo 
do TK, optei por desenvolver progra¬ 
mas aplicativos e didáticos para com¬ 
putadores da família T.R.S. (Tandy- 
Radio-Shack), dada sua populariza¬ 
ção. Estão aí os TRS-80, os CP-500, 
os CP-300, os Dismac série D-8000, 
etc. sendo usados em lares, escolas, 
faculdades e empresas e acessíveis a 
uma grande parte de usuários do TK. 
Para aqueles que ainda não tiveram 
contato com um "oitenta" e acham 
que estão sendo prejudicados por esta 
seção, um lembrete: Não se iluda — 
mais cedo ou mais tarde, um "oitenta" 
ou um pomo da macieira Apple irá 
cruzar o seu caminho e então o que 
"Tkaiano" iria fazer? Para verdadeiros 
programadores, o que importa é o pro¬ 
grama, e não meras sintaxes de dife¬ 
rentes fabricantes. 

Para ajudar aqueles que não dese¬ 
jam bitolar seu raciocínio sintático 
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usando exclusivamente um mesmo ti¬ 
po de computador, "traduzí" o pro- 
grama-padre, desenvolvido inicialmen¬ 
te para um TRS-80 model IV para a 
sintaxe do TK. Só espero não estar, 
desta forma, prejudicando agora aque¬ 
les que têm acesso a um "oitenta' . . . 

A listagem 1, mostra o programa 
original e a figura 1, o esquema do 
circuito casador resistivo de impedân¬ 
cias do tipo"L". 

Observe a simplicidade do circui¬ 
to; dois resistores ligados em rede "L" 
entre as linhas de diferentes impedân¬ 
cias, "casando" a maior impedância 
presente na entrada com a menor im¬ 
pedância presente na saída até que a 
morte (ou uma necessidade de projeto) 
os separe . . . 

Ao desenvolver o programa, mi¬ 
nha principal preocupação foi a de 
complicar o mínimo possível. A esco¬ 
lha de um casador de impedâncias 
usando exclusivamente resistores, im¬ 
plicou em: 

— Cálculo simples, sem se recorrer a 
fórmulas com números imaginários 
(os números complexos) nem levar 
em conta a freqüência. 

— Didático; fácil de se entender. 

— Montagem rápida e simples do cir¬ 
cuito. 

— Custo reduzido dos componentes. 


Um pouco de teoria 


Impedância pode ser entendida 
como sendo uma medida de resistên¬ 
cia para corrente alternada. Dependen¬ 
do da freqüência, capacitores e indu¬ 
tores apresentam diferentes impedân¬ 
cias. A impedância pode ser expressa 


como sendo: 


IMPEDÂNCIA = 

_ Tensão em corrente alternada no circuito 

Corrente alternada do circuito 

Em outras palavras (ou fórmulas): 


RESISTÊNCIA = 


Tensão 

Corrente 


no caso de se tratar de corrente con¬ 
tínua. 

Um resistor ôhmico puro tem a 
mesma resistência em corrente contí¬ 
nua e em corrente alternada, indepen¬ 
dentemente da freqüência. 

Já um capacitor, se comporta, 
teoricamente como um interruptor des¬ 
ligado em corrente contínua; tem sua 
impedância inversamente proporcional 
à freqüência: ou seja, quanto maior a 
freqüência, menor a impedância, con¬ 
forme a fórmula: 

IMPEDÂNCIA DO CAPACITOR = 

__ 1 _ 

FREQUÊNCIA x CAPACITÀNCIA x VT 


Sendo A/- 1 = i, número imaginá¬ 

rio.* 

Um indutor, por sua vez, compor¬ 
ta-se teoricamente como um interrup¬ 
tor ligado quando submetido a uma 
corrente contínua. Em corrente alter¬ 
nada, a impedância de um indutor é 
diretamente proporcional à freqüência; 
isto é: quanto maior a freqüência, 
maior a impedância apresentada pelo 
indutor, conforme a fórmula: 

IMPEDÂNCIA D0 INDUTOR = 

= FREQUÊNCIA x INDUTÂNCIA x V^T 


* Nota do Editor: Se Vocô desconhecer os 
números complexos, consulte um livro de 
matemática de curso colegial (2? grau). 

















PROGRAMA ORIGINAL 


/sé 




reconecar o programa. (S/N) 7 
9;. = 7:59.808 ohms 


"N 


rA’ T RADA 


R2 * 6A.93Í9 ohms 


SAIDA 


V 


?erCa • 11.439 


J 


r 





Rl 







Entrada 

R2 

Saída 


-1 

>- 



V. 


j 


10 CLS 

20 PRINT" CASADOR DE INPEDANCIAS - Red 
e ti PO " 


saída 


30 INPUT"0ua1 a impedancia de entrada 

H ;E 

40 INPUT"Qual a impedaneia de 

50* Rl =E*S<3 íR(1- (S/E) ) 

60 R2=S*SGR(1-(S/E)) 

70 M=SQR(E/S>+SÔR((E/S)-l) 

80 P=20*<LOG(M)/LOG(10)) 

90 CLS 

1'00 PRINT3514» "ENTRADA" 

110 P UNT3143,"Rl = ":R1?" 

120 PRINTa560i"SAIDA" 

130 PRINT3920» "Perda : "?P;" dB" 

140 PRINTa591 í"R 2 = “?R2?" ohms" 

150 Y=15:C=10:F=30: GOSUB 190:C=58:F=10 
0:GOSUB190:Y=12:C=30:F=58:GOSUB190:Y= 
18:GOSUB190:Y=21:C=74:F=87:GOSUB190:Y 
=32:GOSUB190:Y=36:C=10:F=100:GOSUB190 
160 X=30:C=12:F=18:GOSUB200:X=58:GOSU 
B200:X=80:C=15 sF=21:GOSUB200:C=32:F= 

6:GOSUB200:X=74:C=21:F=32:GOSUB200:X 


ohms" 


87 s GOSUB200 

170 PRIN7S0,INPUT"DeseJa recomec 
r o programa (S/N) "?R$ 


180 IF R$="S" THEN GOTO 10 ELSE THEN 
GOTO 180 

190 FOR X=CTOF:SET(X7Y):NEXTX:RETURN 
200 FOR Y=CTOFíSET(X»Y):NEXTY:RETURN 


V_ 

( 

PROGRAMA ADAPTADO PARA O TK 


1 REM TRNIOS HflMZO 
S POKE 16510,0 

10 PRINT ,,"CRâfiDOR DE IMPEDRN 

CIAS/ REDE ””L. 

20 PRINT , , , , "QURL_ R IMPEDRNCI 
R DE ENTPRDR?** 

30 INPUT E 

4-0 PRINT ,/'OUAL R IMPEDRNCIR 
DE SRIDA?" 

50 INPUT S 

60 LET R1=E*6©R í1-(S/E)) 

70 LET R2=S*S0R (1-(S/E)) 

60 LET M =S0R (ExS) ♦SOR C (ExS) - 

1) 

90 LET P=20*iLN (M)/LN (10)) 
100 CLS 

110 PRINT RT 6,6; "■ ■ ■ R1 = *\:INT 
(Rl) ; ** CHMS-JAT 7,6; RT 11, 

0; "ENTRRDR: R2 = ”, INT (R2) ; " OHH 

S” ; TRB 22; "• ■ SRIDR : ” ; E I ” CHM5 
;TRB 22; *‘ á . S; - OHMS“;TRS 22, ■ 

» PERDR: INT (P);" DBS” 

120 TOR Y=9 TO 29 STEP 20 
130 FOR X=0 TO 63 
14-0 PLOT X, Y 
150 NEXT X 
160 NEXT Y 
170 LET X =4-5 
160 FOR Y=*10 TO 2B 
190 PLOT X,Y 
200 NEXT Y 


270 n 
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A listagem 2 mostra o progra- 
ma-padre adaptado para o TK. Note 
COMENTÁRIOS SOBRE O PROGRAMA (listagem 1): que n g 0 ^ diferenças radicais se com¬ 

parado à listagem 1. Há apenas três 
diferenças quanto à sintaxe: o @ (AT, 
no TK), o SET (PLOT, no TK) e o 
ELSE, que não tem tradução simples 
para o TK, mas que pode facilmente 
ser substituído por outro procedimen¬ 
to na programação. 


Exemplo de Aplicação: 


Deseja-se casar a impedância de 
uma linha com 300 ohms com 75 ohms 
de outra linha. Roda-se então o pro- 
grama-padre para unir os laços (de cor¬ 
rente, não matrimoniais) de linhas com 
impedâncias diferentes e obtém-se os 
seguintes resultados: 

Valor de R 1 : calculado: 260 ohms 

prático: 270 ohms 

Valor de R 2 : calculadi * 65 ohms 

prático 68 ohms 

Perda: 11,4deciBéis 

Com estes dados, monta-se o ca- 
sador de impedâncias — a rede resis- 
tiva do tipo "L" (de Lua-de-mel) e 
pronto. O 


UNHA: 

DESCRIÇÃO: 

30 e 40- 

-Entrada de dados. 

50- 

-Cálculo do resistor R 1 , em ohms. 

60- 

-Cálculo do resistor R 2, em ohms. 

70e80- 

-Cálculo de perda de tensão, em deciBéis. 

100 a 140- 

-Apresentação dos resultados e 


denominação do esquema. 

170- 

-Pergunta pelo recomeço. 

180- 

-Decisão entre o recomeço ou trava do 


programa. 

DESENHO DO ESQUEMA: 


150- 

—-Coordenadas das linhas horizontais. 

160- 

--Coordenadas das linhas verticais. 

190- 

-Sub-rotina para desenhar as linhas 


horizontais. 

200- 

-Sub-rotina para desenhar as linhas 


verticais. 


NA O SE DEIXE LEVAR! 


Saiba escolher o melhor material para seu micro. No Núcleo g 
de Orientação de Estudos, dirigido pelo professor Pierluigi Piazzi 
você encontra novidades inteligentes para o seu computador: 

Software Lazer: Jogos inteligentes e de ação para 
divertimento de pessoas inteligentes. 

Software Didático: Use o seu micro como um 
eficientíssimo professor para rever e aprender línguas, 

Ciências, etc., na velocidade que você determinar. 

Livros para seu micro: Obras originais editadas pelo 
próprio Núcleo, por autores NACIONAIS escritos para o 
usuário BRASILEIRO. 

Cursos: Basic (elementar e avançado) linguagem de 
máquina Z-80 (iniciantes e aprofundamento) sob a orientação 
de Flavio Rossini. 


Faça-nos uma visita ou 
envie cupom anexo (ou xerox) para 


Núcleo de Orientação de Estudos 
Av. Brigadeiro Faria Lima, 1451 
3? cj. 31 - CEP01451 - São Paulo 
, 7e/.;(011)813-4555 


Gostaria de receber gratuitamente 
o boletim informativo do Núcleo 



Nome: _ 

Endereço: . 

CEP: _ 

Estado: _ 

Assinatura: 


Cidade: 
Data: _ 


Te/.: 


Favor preencher em letra de forma J 


Se quiser, transmita seus dados por telefone para nossa secretária eletrônica, fora do horário comerciai. 







































• A única fita com o comprimento especialmente 
dimensionado para 20 minutos. 

• Evita a regravação de programas. 

• Elimina a ocorrência de dropouts. 

• Requer um torque mais baixo do gravador. 

• Proporciona maiores ganhos nas frequências 
médias e altas. 


Seus programas 

merecem o Computer Cassette C-20 Scotch! 


A fita da mais alta segurança, com a qualidade Scotch. 


í 


Produtos Magnéticos CPD/3M 

Caixa Postal 123 - Campinas - SP 
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iniciação em 
microcomputação 
que existe. 

O TK 83 já ensinou mais de 2 milhões de pessoas. 

Ele é muito fácil de operar. Usa o Basic, e a memória chego 
até 64 K bytes, e aceita monitor, impressora e joystick. 

Num instante você vai estar resolvendo problemas 
programando, ou vencendo os muitos jogos disponíveis. O 
. J TK 83 não ésóa melhor iniciação. Também é a mais divertida. 


Aqui você já apiica 
os seus conhecimentos 

Com o TK 85 você também pode se divertir muito: ele 
tem dezenas de jogos disponíveis. 

Mas ele já é mais sofisticado. Tem software já pronto. 
Linguagens Basic e Assembler. Teclado tipo máquina de 
escrever, com 40 teclas e 160 funções. 16 ou 48 K de 
memória RAM, e 10 de ROM. Gravação em high-speed, 
e função Verify, para maior segurança. 

Quando você já estiver apaixonado por 
microcomputação, ele vai corresponder totalmente. 


À venda nas boas casas do ramo. lojas especializadas de fotovideo-som e grandes magazines em ALAGOAS - Maceió, Palmeira dos índios, AMAZONAS - Manaus, BAHIA - Salvador, CEARÁ ■ Forta¬ 
leza, DISTRITO FEDERAL - Brasília, ESPÍRITO SANTO - Vitória, GOIÁS - Goiânia, MATO GROSSO - Cuiabá, MINAS GERA/S - Belo Horizonte, Divinópolis, Itajuba, Juiz de Fora, Poços de Caldas, São 
João Del Rei, Teófilo Otoni. Uberlândia, Uberaba, Viçosa, PARAÍBA - Campina Grande, PARÁ - Belém, PARANÁ - Curitiba, Londrina, Maringá, PERNAMBUCO - Recife, RIO DE JANEIRO - Campos, Ni 
terói, Nova Friburgo, Petrópolis. Rezende, Rio de Janeiro, Volta Redonda, RIO GRANDE DO SUL - Bagé, Canoas, Caxias do Sul, Ijuí, Novo Hamburgo, Pelotas, Porto Alegre, Sant Anna do Livramen 
to, Santiago, Santa Rosa, São Leopoldo, RIO GRANDE DO NORTE - Natal, RONDÔNIA - Porto Velho, SÃO PAULO - Araraquara, Assis, Avaré, Bauru, Birigui, Botucatu, Campinas, Catanduva, Franca 
Guarulhos, Itu, Jacarei. Jaú, Limeira, Lins, Marilia, Mogi Guaçu, Mogi das Cruzes. Ourinhos, Piracicaba, Pirassununga, Promissão, Rio Claro, Ribeirão Preto, Santos, Santa Barb d'Oeste, São Ber 
nardo do Campo, São João da Boa Vista, São Sebs da Grama, São Carlos, São José do Rio Preto, São José dos Campos, St° André, São Paulo, Sorocaba, Suzano, Taubaté, SANTA CATARINA - Blume 
nau, Brusque, Florinópolis, Itajaí, Joinville, SERGIPE - Aracajú, Se você não encontrar este equipamento na sua cidade ligue para (011) 800 - 255.8583. 
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Aqui você mostra 
tudo o que sabe. 

O TK 2000 Color tem tudo que os 
melhores micros têm. Menos o preço. 

Aceita diskette, impressora (já vem com 
interface), alta resolução gráfico ò cores 
podendo ser ligado ao seu TV colorido 
ou P&B. Tem 64kde memória RAM e 
lókde memória ROM. Com excelente 
software disponível. 

Você pode mostrar tudo o que sabe. 

Sem precisar mostrar muito dinheiro. 




Microdlgltal eletrônico Lida 
Caixa Postal 54121 - CBP 01000 ■ 

Sõo Paulo ■ SP Telex n°. (011) 37008 MIDE BR 

























cada vez melhor! 




A MICROHOBBY é uma revista altamente didática, destinada a programadores de vários 
níveis, do principiante ao hobbista mais ousado, que se aventure a programar em linguagem 
de máquina. 

Receba em sua casa a revista que contém inúmeros programas, informações, dicas e tudo 
o que você precisa saber sobre microcomputadores e programação. 

MICROHOBBY a revista que põe você em dia com a informática! 


Assinando a revista MICROHOBBY, você recebe inteiramente grátis uma 
fita cassete contendo 2 jogos. 

1 - 0 pouso do Barão Vermelho e Pac-hobby (TK83/85) 

2 - Calendário perpétuo e Tatuzão (TK2000 e APPLE) 

Qual a marca do seu micro? I ” 
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PEDIDO DE LIVROS E NUMEROS ATRASADOS DA MICROHOBBY 

(Preencher os itens no verso e o cupom abaixo) 

Sim, desejo receber os itens assinalados no verso 







TOTAL DO PEDIDO: Cr$_ 

Enviar cheque nominal cruzado ou vale postal 
à MICROMEGA P.M.D. Ltda. - Cx. Postal 54096 
CEP 01296 - São Paulo - SP 

Cheque n?_ _ 

Bco._ I_I Vale postal 


Estou ciente de que aguardarei em média 
30 dias para o recebimento dos produtos 
DATA_/_/ ' 









Não deixe de ler estes livros . 


BASIC TK 

Um livro destinado a quem se interessa em aprender a linguagem 
do computador TK82, 83, 85 e compatíveis Complementando os ma 
nuais destes computadores, o livro BASIC TK é um auxiliar útil mesmo 
para os que já possuem alguns conhecimentos sobre sua máquina. 


Linguagem de máquina p/ o TK 

Programar em linguagem de máquina nos permite criar programas 
muito mais rápidos e versáteis que os programados em BASIC. O livro 
LINGUAGEM DE MAQUINA PARA 0 TK ensina, passo a passo e de 
uma maneira muito leve os segredos desta arte, tornando-o capaz de 
elaborar jogos e aplicativos nesta modalidade de programação. 


Coleção de Programas Vol. I e II 

Programas de todas as modalidades e para todas as idades E um 
livro ideal para vocé que gosta de programas "prontos para uso" para 
o seu computador 


Curso de jogos p/ o TK 


Certamente os jogos de vídeo sáo a coqueluche do momento. Que 
tal vocé mesmo bolar seus jogos em seu TK ou compatível? Este livro lhe 
dá fundamentos para que vocé possa iniciar se neste fascinante hobby 


Para receber os livros, M* atrasados da MICROHOBBY e fitas abaixo, 
basta assinar o item desejado, e preencher corretamente o cupom do 
verso. 
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CERTIFICADO ESPECIAL DE RESERVA 

VÁLIDO ATÉ 31/08/84 ^ 

Desejo assinar a revista MICROHOBBY (12 edições) 



pp^oSoífoO 


éC s8.o°°> 


ENDEREÇO 


N? 

ASS. 

□ 

□ 

□ 

□ 

□ 







Estou anexando a quantia de Cr$ 19.800,00 
para MICROMEGA P.M.D. Ltda., referente à 
venda de uma assinatura. 

Cheque N?_data:_/_/_Banco, 

| | cheque nominal [ ] vale postal 


—I ASSINATURA 

ESTE CARTÃO NÃO PODE SER 
UTILIZADO POR TERCEIROS PARA 
COLETA DE ASSINATURAS 
Válido somente se postado 
diretamente pelo assinante 


2345678 























